напишите программу ввода всех четных чисел от 2 до 100 включительно
в ПАСКАЛЕ!!!

СРОЧНА!!!!!!!!!!!!!!!!!!!!!

i:integer;

begin

  i:=2;

  while i<=100 do

   begin

    write (i,' ');

    i:=i+2;

  end;