Pascal ABC. Ввести с клавиатуры число линий штриховки и построить произвольную фигуру (к примеру, квадрат), залив области разным цветом.

//Pascal ABC.NET v3.1 сборка 1219

uses
 graphabc;

Const
  h=300;

Var
 n,k,i:integer;
begin
 maximizewindow;
 readln(n);
 n:=n+1;
 line(h,h,h*2,h);
 line(h*2,h,h*2,h*2);
 line(h*2,h*2,h,h*2);
 line(h,h*2,h,h);
 k:=h div n;
 for i:=1 to n do
  begin
   sleep(100);
   line(h+i*k,h,h+i*k,h*2);
   floodfill(h+i*k-1,h+1,rgb(random(255),random(255),random(255)));
  end;
floodfill(h*2-1,h+3,rgb(random(255),random(255),random(255)));
end.