Может так:
Vara:array[1..5]of integer;
a1,a2,a3,a4,a5,max:integer;
function f(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
begin
a1:=random(10);
a2:=random(10);
a3:=random(10);
a4:=random(10);
a5:=random(10);
writeln(a1);
writeln(a2);
writeln(a3);
writeln(a4);
writeln(a5);
writeln;
max:=f(a1,a2);
max:=f(max,a3);
max:=f(max,a4);
max:=f(max,a5);
writeln('max=',max);
<span>end.</span>
Глобальная сеть это всемирная сеть,которая охватывает весь мир
СОЧ-1 задание составить из 5 слов продложение-шужык,газыр и тд,2 задание:вставитьбуквы-с_ка,м-т и тд.....всё....
Var x,f:real;
Begin
Readln(x);
If x>-2 then f:=sqr(6*x)+5*x
else f:=sqr(x)-8*x+1;
Writeln('F(x) = ', f);
<span>End.</span>