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

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

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

var a,b,c,d,max:integer;
begin
  writeln('vvedite znachenia:');
  readln(a, b, c, d);
  if (a > b) then
    max := a
  else
    max := b;
  if (max < c) then
    max := c;
  if (max < d) then
    max := d;
  writeln('Maksimalnoe:', max);
  readln();
end.  

Вывод консоли:

Maksimalnoe chislo _