Паскаль АВС - найти самое большое из четырёх чисел

[Dante123]

в паскале ABC нужно Составить процедуру нахождения одного из двух чисел.
Найти,используя эту процедуру ,самое большое из четырёх чисел.
напишите плиз

[Stilet]

А сам то как думаешь? Как в методичке написано?

[Dante123]

В том то и проблема нифига не обяснили а к четвергу неси и подавай(

[DM_bite]

program Xd;
function ABC(a,b: integer):integer;
begin
if a>b then abc:= a
else abc:= b;
end;
var a,b,c,d: integer;
begin
 ReadLn(a,b,c,d);
 if abc(a,b) > abc(c,d) then WriteLn(abc(a,b))
 else WriteLn(abc(c,d));
 ReadLn;
 end.

Вроде так, хотя тут функция. Писал на скорую руку.

[Dante123]

спс конечно огромное но мы функцию не прошли ещё ,надо процедуру если не сложно.плиз