0-100 ARASI ÇİFT SAYILAR


uses crt;
var
   i:integer;
begin
     clrscr;
     i:=0;
     repeat
           write(i:4);
           i:=i+2;
     until i>100;
     readln;
end.