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

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

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

var a, b, c, d,
    max, max2, max3, max4: integer;
begin
  writeln('Введите четыре целых числа: ');
  readln(a, b, c, d);

  if ((a > b) and (a > c) and (a > d)) then
      writeln('Число ', a, ' максимальное')
  else if ((b > c) and (b > d)) then
      writeln('Число ', b, ' максимальное')
  else if (c > d) then
      writeln('Число ', c, ' максимальное')
  else
      writeln('Число ', d, ' максимальное');

  writeln('============================');

  if (a > b) then
      max2 := a
  else
      max2 := b;

  if (max2 > c) then
      max3 := max2
  else
      max3 := c;

  if (max3 > d) then
      max4 := max3
  else
      max4 := d;

  max := max4;
  writeln('Максимальное число: ', max);

  readln();
end.    

Консоль:

Введите четыре целых числа:
2
5
19
0
Число 19 максимальное
============================
Максимальное число: 19

Введите четыре целых числа:
23
23
15
20
Число 23 максимальное
============================
Максимальное число: 23