Looping Deret Ganjil For Do pada Pascal

program deretganjil;
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
if(i mod 2=1)then
writeln(i);
readln;
end.


Outputnya adalah

1
3
5
7
9