Ответ:
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.
Объяснение: