Задание

Установие соответствие между описанием программы и ее записью на языке ПАСКАЛЬ

program NahojdenieMAX;

function max (x, y: integer): integer;

begin

if x > y then max:= x else max:=y;

end;

var a, b, c, d, f: integer;

begin

readln (a, b, c, d);

f:= max (max(a,b), max (c,d));

writeln ('f=' , f);

end.

Заголовок главной программы

Раздел операторов главной программы

Раздел описания функции

Раздел описания переменных