nie wiem jak napisac taki program program porosi o wpisanie liczby n, program wypisuje liczby od 1-n tak żeby pazyste były czerwone a niepzyste niebieskie

2006-11-05 00:40:00,
uses crt;
var n,i: longint;
begin
readln(n);
for i := 1 to n do begin
if i mod 2 = 0 then textcolor(red) { i mod 2 = reszta z dzielenia calkowitego i przez 2 }
else textcolor(blue);
writeln(i);
end;
end.

2006-11-05 00:40:30,
czemu wciecia nia dzialaja..? wrrry...!







Udziel odpowiedzi na powyższe pytanie...

Twoja odpowiedź:
 


Podpis: 

Wpisz wynik: trzy dodać pięć równa się (pisane cyfra)