4 хорошо 5 отлично 3 удовлетворительно

Ответ от Www www[гуру]
case ocenka of
1: writeln('КОСЯПОР! ');
2: writeln('Лови леблядя! ');
3: writeln('Удовлетворительник! ');
4: writeln('Нормуль! ');
5: writeln('Красав! ');
else writeln('Препод смени траву! ');
end;

Ответ от Jurijus Zaksas[гуру]
const
MARK_TO_WORD:array[1..5] of string =('1-плохо', '2- неудовлетворительно', '3- удовлетворительно', '4- хорошо', '5 – отлично');
var
iMark:integer;
begin
readln(iMark);
writeln(MARK_TO_WORD[iMark]);
end.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]