Напишите программу ввода всех четных чисел от 2 до 100 включительно в ПАСКАЛЕ!!! СРОЧНА!!!!!!!!!!!!!!!!!!!!!
begin
for var a:integer:=1 to 100 do
if a mod 2=0 then
writeln(a);
end.