Компилятор: Pascal ABC
5.
sqrt(1+abs(x))/cos(y)
6.
var a, b: integer;
begin
a := 5;
b := 0;
while a<>1 do begin
a := a - 1;
b := b + a;
end;
writeln(b);
end.
7.
program задача;
var a, b: real;
begin
readln(a,b);
if a < b then writeln('число ', a ,' меньше числа ', b)
else writeln('число ', b ,' меньше числа ', a);
end.
8.
var a, b: integer;
begin
readln(a,b);
writeln(a * b);
end.
9.
var S, a, n: integer;
begin
readln(n);
a := 2;
repeat
if a mod 2 = 0 then S := S + a;
inc(a);
until a=n;
writeln(S);
end.
