Составить блок-схему, программу ввода оценки, полученной студентом, для переменной P, и выдачи текста:
«Молодец!», если Р=5;
«Хорошо», если Р=4;
«Лентяй», если P<=3.
Исходные данные: P =5; P=4; P=2

var

 p: integer;

begin

 readln(p);

 if p=5 then print('Молодец!')

 else if p = 4 then print('Хорошо!')

 else if p<=3 then print('Лентяй!')

end.

Объяснение:

Var       a, b: real ; begin       write('тормозной путь, определенного для данного места при полном служебном торможении = ');       readln(a);       write('тормозной путь для на 120 км/ч для пассажирских поездов = ');       readln(b);       if b < a then a : = b;       write('тормозной путь для на 80 км/ч для грузовых поездов = ');       readln(b);       if b < a then a : = b;       write('тормозной путь при экстренном торможении с учетом пути, проходимого поездом за время, необходимое для воздействия устройств автоматической локомотивной сигнализации на тормозную систему поезда = ');       readln(b);         if b > a then a : = b;       write('участок, где видимость сигналов менее 400 м? да-1/нет-0 ');       readln(b);       if (b = 1) and (a < 1000) then a : = 1000;       write('железнодорожная линия, вновь оборудуемая автоблокировкой? да-1/нет-0 ');       readln(b);       if (b = 1) and (a < 1000) then a : = 1000;       writeln(a); end.