Напишите следующую программу. Ввести с клавиатуры оценку ученика в виде
числа от 2 до 5. Вывести на экран «Работа выполнена отлично», если оценка — 5, «Работа
выполнена хорошо», если оценка — 4, «Работа выполнена удовлетворительно», если
оценка — 3, «Работа выполнена неудовлетворительно», если оценка — 2. В программе
использовать три условных оператора.паскаль.

А зачем подключать SysUtils ?

В Delphi писал, там у меня по умолчанию стоит, на самом деле не обязательно.

Неужели еще кто-то в Делфи пишет?

program rez; {$APPTYPE CONSOLE}uses    SysUtils;var     n:integer;begin  readln(n);  if(n=5)then writeln('Работа выполнена отлично');  if(n=4)then writeln('Работа выполнена хорошо');  if(n=3)then writeln('Работа выполнена удовлетворительно');  else writeln('Работа выполнена неудовлетворительно');   readln;end;

// PascalABC.NET 3.0, сборка 1073var  b:byte;begin  Write('Введите отметку (2-5): '); Read(b);  { подразумевается, что отметка введена корректно }  if b=2 then Writeln('Работа выполнена неудовлетворительно');  if b=3 then Writeln('Работа выполнена удовлетворительно');  if b=4 then Writeln('Работа выполнена хорошо')  else Writeln('Работа выполнена отлично')  { Исползованы ровно три условных оператора }end.