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

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

begin

for var a:integer:=1 to 100 do

  if a mod 2=0 then

     writeln(a);

end.