Может так:
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>
Var
x,z,c:Integer;
begin
readln(x,z);
if x < 5 then
c:= x + z;
if (5 <= x) and (x <= 10) then
c:=2*x-3*z;
if x > 10 then
c:= 25*x+z*25;
writeln(c);
end.
C++ c+ pascal java и ещё другие