program Fon;

var

i:integer;

w:integer;

h:integer;

begin

w:=-1;

h:=-1;

for i:=-9999999 to 9999999 do

begin

if h=320 then h:=0;

w:=w+1;

if w>240 then

begin

h:=h+1;

w:=0;

end;

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

plot(w,h);

repaint;

end;

end.