PROGRAM max_and_min;
vara,b,c,d,max,min:integer;
BEGIN
writeln(Введите 4 целых числа через пробел или Enter -gt; );
readln(a,b,c,d);
if (agt;b) then max:=a else max:=b;
if (cgt;max) then max:=c;
if (dgt;max) then max:=d;
min:=a;
if blt;a then min:=b;
if clt;b then min:=c;
if dlt;c then min:=d;
writeln(Большее из чисел = ,max);
writeln(Меньшее из чисел = ,min)
END.
Писал на скорую руку, но вроде всё правильно.