урок 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);

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

  if (a>b) then

  writeln(a)

  else

   writeln(b);

  if (b<c) then

  writeln(c);
   readln();
  end