A := 27; if a <= 27 then a := a -9 else a := a +6; значение переменной А

18            

Объяснение:

begin

k: =1;

sumf: =1; {так как для i1 sum=1}

for i: =1 to n do (n-колличество членов, вводится с клавиатуры)

begin

k: =k*i;

f: =k;

sumf: =sumf+1/f;

end;

(while)

function sumw(i: integer): real;

begin

k: =1;

i: =1;

sumw: =1;

while i< =n do

begin

k: =k*i;

f: =k;

sumw: =sumw+1/f;

end;

(repeat)

function sumr(i: integer): real;

begin

k: =1;

i: =1;

sumr: =1;

repeat

k: =k*i;

f: =k;

sumr: =sumr+1/f;

i: =i+1

until  i< n;

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает