Задача 9 Урок 9

Задача 9 Урок 9

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

var a,b,c,d,maxAB,maxCD,maxABCD : integer;
begin
  writeln('Vvedite a,b,c,d');
  readln(a,b,c,d);
  if (a>b) then
    maxAB := a
  else
    maxAB := b;
  if (c>d) then
    maxCD := c
  else
    maxCD := d;
  if (maxAB>maxCD) then
    maxABCD := maxAB
  else
    maxABCD := maxCD;
  writeln('max number = ',maxABCD);
  readln();
end.

UPD
Исправленная та же задача:

var a,b,c,d:integer;

begin
  writeln('Введите четыре числа: ');
  readln(a,b,c,d);

if (a>b) then
  if (a>c) then
    if (a>d) then
      writeln('max=A: ',a)
    else
      writeln('max=D: ',d)
  else
    if (c>d) then
      writeln('max=C: ',c)
    else
      writeln('max=D: ',d)
else
if (b>c) then
  if (b>d) then
    writeln('max=B: ',b)
  else
    writeln('max=D: ',d)
else
  if (c>d) then
    writeln('max=C: ',c)
  else
    writeln ('max=D: ',d);
readln();
end.