15 lines
363 B
ObjectPascal
15 lines
363 B
ObjectPascal
// Оператор выбора
|
|
var x: integer;
|
|
|
|
begin
|
|
writeln('Введите оценку (1..5): ');
|
|
readln(x);
|
|
case x of
|
|
1: writeln('Единица');
|
|
2: writeln('Двойка');
|
|
3: writeln('Тройка');
|
|
4: writeln('Четверка');
|
|
5: writeln('Пятерка');
|
|
else writeln('Такой оценки нет');
|
|
end;
|
|
end. |