Составить программу ввода оценки p (1< =p< =5), полученной учащимся, и выдачи текста: "молодец! ", если p=5; "хорошо! ", если p=4; "лентяй! ", если p< =3.

Var
  p: integer;

begin
  readln(p);
  if p=5 then print('Молодец!')
  else if p = 4 then print('Хорошо!')
  else if p<=3 then print('Лентяй!')
end.