Вопрос, который вызвал трудности

Составить программу в паскале,позволяющую получить словесное описание школьных отметок: 1-плохо 2-не удовлетворительно 3-удовлетворительно 4-хорошо 5-отлично

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Разное». Ваш вопрос звучал так:

Составить программу в паскале,позволяющую получить словесное описание школьных отметок: 1-плохо 2-не удовлетворительно 3-удовлетворительно 4-хорошо 5-отлично

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

program OCEHKA;
uses crt;
var a,b:integer;
fign:boolean;
s:string;
begin
fign:=false;
write(Введите оценку-);
ReadLn (a);
b:=a;
case b of
1:s:=Плохо;
2:s:=Неудовлетворительно;
3:s:=Удовлетворительно;
4:s:=Хорошо;
5:s:=Отлично;
end;
WriteLn (s);
ReadLn(s);
end.

Жду спасибо и лучший ответ))) 

var mark: integer;

 

begin
  write(Оценка:);
  readln(mark);
  case mark of
    1: writeln (Плохо);
    2: writeln (Не удовлетворительно);
    3: writeln (Удовлетворительно);
    4: writeln (Хорошо);
    5: writeln (Отлично!);
  end;
  readln;
end.