Паскаль составление программы по теме циклы

[яночка-студентка]

помогите составить программу в паскале тема циклы.можно либо For, либо While, либо Repeat
вот как звучит задание: Составить программу, выводящую на экран квадраты разного цвета расположив их в столбец.

[Alexey74]

если символьно то вот например:

uses crt;
var i:byte;

procedure kvadrat;
begin
writeln('|----|');
writeln('| |');
writeln('|____|');
end;

begin
for i:=1 to 12 do
begin
textcolor(i); kvadrat;
end;
end.

можно по другому если надо...