program Fon;
var
i:integer;
w:integer;
h:integer;
begin
function j;
begin
for i=-9999999 to 9999999 do
begin
setColor(random(255),random(255),random(255));
plot(random(240),random(320));
repaint;
end;
end;
w:=-1;
h:=-1;
for i:=-9999999 to 9999999 do
begin
if h=320 then 
begin
repaint;
h:=0;
j;
end;
w:=w+1;
if w>240 then
begin
h:=h+1;
w:=0;
end;
setColor(random(255), random(255), random(255));
plot(w,h);
end;
end.