Ответ:

var mark:integer;

begin

write('Введите оценку: ');

readln(mark);

if mark=1 then write('Уровень успеваемости: критический')

else if mark=2 then write('Уровень успеваемости: низкий')

else if mark=3 then write('Уровень успеваемости: средний')

else if mark=4 then write('Уровень успеваемости: достаточный')

else write('Уровень успеваемости: высокий')

end.

Объяснение: