Print ( 4, end=" " ) for i in range ( 4,2,-1) : print ( 2*i, end=" " )​

21,24,27,30,33,36,39,42,45,48

№1

program z1;

var n: integer;

begin

write ('введите число n: ');

readln(n);

if (n mod 2 = 0) and (n div 100 < 1) and (n > 9) then write('данное число является четным двузначным') else if  (n div 100 < 1) and (n > 9) then write ('данное число не четное двузначное');

end.

№2

program z2;

var a, b, c, k: integer;

begin

k: =0;

writeln ('введите числа a, b и c: ');

readln(a,b,c);

if a< 0 then k: =k+1;

if b< 0 then k: =k+1;

if c< 0 then k: =k+1;

write('количество отрицательных чисел: ',k)

end.

таких тем много.

я предлагаю такие:

1) интересные события ( в мире, в стране, в

2) знаменитости и интересные факты о них.

3) все о писателях, поэтах и т.д.

4) наш дружный класс.

5) наш родной город.

6) наши одноклассники ( все о них)

7) наши учителя

вот к примеру такие. надеюсь тебе хватит) 

var a: array [1..100] of real; i,n: integer;

t: real; begin  randomize;   n: =20;   for i: = 1 to n do begin      a[i]: =random(n*10)- 10*n div 2 ;       write(a[i]: 4);       if i mod 10=0 then writeln;   end;  

  t: =a[1]

  for i: = 1 to n do begin      a[i]: =a[i]/t ;       write(a[i]: 4);       if i mod 10=0 then writeln;   end;   end.