помогите
не работает вот этот код:
program scrin;
var i,j:integer;
begin
ShowCanvas;
setcolor(125,126,127);
for i:=0 to 8 do
for j:=0 to 8 do
if(i mod 2=j mod 2)then
fillrect(i*16,j*16,i*16+16,j*16+16);
repaint;
while getkeyclicked=KE_NONE do
begin end;
end.
запускаеться но не работает, закрыть программу тоже не могу, почему не знаю, помогите плз.
|