17 lines
342 B
ObjectPascal
17 lines
342 B
ObjectPascal
Program case_of;
|
|
Var a:integer;
|
|
begin
|
|
WriteLn('Ââåäèòå íîìåð íîòû');
|
|
ReadLn(a);
|
|
case a of
|
|
1: WriteLn('íîòà äî');
|
|
2: WriteLn('íîòà ðå');
|
|
3: WriteLn('íîòà ìè');
|
|
4: WriteLn('íîòà ôà');
|
|
5: WriteLn('íîòà ñîëü');
|
|
6: WriteLn('íîòà ëÿ');
|
|
7: WriteLn('íîòà ñè');
|
|
else WriteLn('ÍÅÒ ÒÀÊÎÉ ÍÎÒÛ!!!')
|
|
end;
|
|
end.
|
|
|