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

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

var A, B, C, D: real;
begin
  writeln('vvedite chislo A: ');
  readln(A);
  writeln('vvedite chislo B: ');
  readln(B);
  writeln('vvedite chislo C: ');
  readln(C);
  writeln('vvedite chislo D: ');
  readln(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
      write(D);

  readln();
end.