Напишите программу ввода всех четных чисел от 2 до 100 включительно в ! !

begin

for var a: integer: =1 to 100 do

  if a mod 2=0 then

      writeln(a);

end.

Турбо паскаля нет, вставьте первым оператором uses crt const   n = 20; var   x: array[1..n] of real;   i: integer;   sp, sn: real; begin   randomize;   write('элементы массива: ');   sp : = 0; sn : = 0;   for i : = 1 to n do   begin       x[i] : = (random(101) - 50) / 1.33;       write(x[i]: 0: 5, ' ');       if x[i] > 0 then sp : = sp + x[i]       else if x[i] < 0 then sn : = sn + x[i]{нули тоже сюда, они не мешают}   end;   writeln(#13#10, 'сумма положительных=', sp: 0: 5, ', отрицательных=', sn: 0: 5) end. тестовое решение: элементы массива: 3.75940 21.80451 -16.54135 9.77444 10.52632 -7.51880 32.33083 -23.30827 12.03008 -3.00752 25.56391 24.81203 24.06015 -9.02256 -11.27820 34.58647 25.56391 9.02256 -27.06767 6.01504 сумма положительных=239.84962, отрицательных=-97.74436

Var   i,n: integer;   a: array of integer; begin setlength(a,10); write('исходный массив: '); for i: =0 to 9 do   begin   a[i]: =random(10);   write(a[i],' ');   end; writeln; write('преобразованный массив: '); for i: =0 to 9 do   begin   if not((i mod 2=0) and (a[i] mod 2=0)) then     begin     a[n]: =a[i];     n: =n+1;     end;   end; setlength(a,n); for i: =0 to n-1 do   write(a[i],' '); end.