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

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

Пользователь вводит четыре числа, найдите из них максимальное.

var A, B, C, D, max1, max2, max3, max : integer;
begin
  writeln('Vvedite chisla A B C D:');
  read(A, B, C, D);
  if (A > B) then
     max1 := A
  else
      max1 := B;
  if (max1 > C) then
     max2 := max1
  else
      max2 := C;
  if (max2 > D) then
     max3 := max2
  else
      max3 := D;
  max := max3;
  writeln('Maksimalnoe chislo: ', max);
  readln();
end.