program Fon;

var i, h, w:integer;

procedure j();
 begin
  for i:=-5 to 5 do
   begin
    setColor(random(255),random(255),random(255));
    plot(random(240),random(320));
    repaint;
   end;
 end;

begin
 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.