program Fon;

var

i:integer;

w:integer;

h:integer;

begin

w:=-1;

h:=-1;

for i:=-9999999 to 9999999 do

begin

if w=240 then w:=0;

if h=320 then h:=0;

w:=w+1;

if h=0 then h:=h+1;

setColor(random(255), random(255), random(255));

plot(w,h);

repaint;

end;

end.