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

http://fkn.ktu10.com/?q=node/8539

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

var a, s, d, f: integer;
begin
  writeln('vvedi 4 chisla ');
  readln(a, s, d, f);
  if( (a > s) and (a > d) and (a > f) ) then
    writeln('max -', a)
  else
    if( (s > a) and (s > d) and (s > f) ) then
      writeln('max -', s)
    else
      if( (d > a) and (d > s) and (d > f) ) then
        writeln('max -', d)
      else
        writeln('max -', f);
  readln();
end.