Ответ:

var

   a, b, c, d: integer;

function max(i1, i2: integer): integer;

begin

   if i1 > i2 then max := i1 else max := i2;

end;

begin

   read(a, b, c, d);

   writeln(max(max(max(a, b), c), d));

end.

не помню как процедуры писать, но с функциями даже удобнее

Объяснение: