var i:integer;
begin
writeln('Введите оценку'); readln(i);
case i of
1: writeln('Единица');
2: writeln('Двойка');
3: writeln('Тройка');
4: writeln('Четверка');
5: writeln('Пятерка');
else writeln('Нет такой оценки');
end;
readln;
end.
Объяснение:
var i:integer;
begin
writeln('Введите оценку'); readln(i);
case i of
1: writeln('Единица');
2: writeln('Двойка');
3: writeln('Тройка');
4: writeln('Четверка');
5: writeln('Пятерка');
else writeln('Нет такой оценки');
end;
readln;
end.
Объяснение: