Looping Deret Bertingkat For Do pada Pascal

program deretgenap;
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
if(i mod 2=0)then
write(i,'  ');
readln;
end.

Hasil Outputnya adalah

2  4  6  8  10