1) определить чётное и нечётное, положительное или отрицательное число.

Var x: integer; begin writeln('введите число'); readln(x); if x mod 2=0 then writeln('число ',x,' - чётное') else writeln('число ',x,' - нечётное'); if x> 0 then writeln('число ',x,' - положительное') else if x< 0 then writeln('число ',x,' - отрицательное') else writeln('число ',x,' - неположительное и неотрицательное число') end.

x=16

ответ: 16 этажей

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.

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