5) a:=y+x/(y*y+abs(x*x/(y+x*x*x/3)))
6) a:= 2*cos(x-pi/6)/(0.5+sqr(sin(y)))-abs(1+sqr(sin(z/2)/cos(z/2)))
7) a:=(1+sqr(sin(x+y)))/(2+abs(x-2*x/(1+x*x*y*y)))+1+z*z/(3+z*z/5)
Var a, b: Integer;
begin
ReadLn(a, b);
if a>b then WriteLn(a)
else WriteLn(b);
end.
-------------------------
Это если консольное. Если графическое приложение - тогда приношу свои извинения.
Var i,s: integer;
begin
i:=30; s:=0;
repeat
s:=s+i;
i:=i+5;
until i>60;
writeln('сумма = ',s);
<span>end.
</span>