Bilangan Bulat

Kode Untuk Menampilkan Bilangan Bulat dimana Bilangan Bulat Berwarna Merah
___________________
uses crt;
var
i: integer;
begin
clrscr;
i:=0;
while i<20 do
begin
i:=i+1;
if i mod 2=0 then textcolor (red)
else textcolor(white);
writeln (i);
end;
readln;
end.