Помогите решить!

(простите,получилось только в ворде скинуть)

Компилятор: 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.