var
x: integer;
begin
writeln(Введите оценку: );
readln(x);
write(Оценка: );
case x of
1: write(кол!);
2: write(неудовлетворительно);
3: write(удовлетворительно);
4: write(хорошо);
5: write(отлично);
end;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.