Question

Помогите составить программу на паскале для задач 2 и 3​

Answer 1

№2

var P:integer;

begin

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

readln(P);

if P = 5 then writeln('Молодец!');

if P = 4 then writeln('Хорошо!');

if P <= 3 then writeln('Лентяй!');

end.