урок 9 задача 7

урок 9 задача 7

Пользователь вводит четыре числа, найдите из них максимальное -- решите через вложенные блоки if в полной форме (без использования логических операций).
Примечание: решение с помощью AND более удобно на практике, но для тренировки понимания тут мы решаем через вложенные блоки.

program Project1;

 var
 a,b,c,d :integer ;

begin
writeln('напишите число a');
readln(a);

writeln('напишите число b');
readln(b);

 writeln('напишите число c');
readln(c);

writeln(' напишите число d');
readln(d);

if (a>b) and (a>c) and  (a>d) then

 writeln('наибольшие число = a');


if (c>b) and (c>a) and  (c>d) then

 writeln('наибольшие число = c');


 if (b>a) and (b>c) and  (b>d) then

 writeln('наибольшие число = b');

 if (d>b) and (d>c) and  (d>a) then

 writeln('наибольшие число = d');

end.