Напишите программу, печатающую все символы, у которых код является четным числом. pascal abc

var  
i:integer;
begin  
 i:=2;  
while i<=100 do    
begin    
write (i,' ');    
i:=i+2;  
end;
end.