графическа программка в Паскале

[Len4i]{]

помогите придумать и написать простенькую задачку. очень нужно, а мозг отключился

нужно, чтобы в программе ,к примеру, выводились 3 квадрата разных цветов на несколько секунд. нужно запомнить последовательность цветов и как-нибудь выдеть её на экран

люди помогите хоть чем-нибудь. может у ког-нибудь есть похожая программка

[AlexFess]

Это в принципе совсем просто..
Несколько уточнений можно?
1) Последовательность цвето вводится или любая?
2) Квадраты на экране одновременно должны находиться или по очереди?

[Len4i]{]

извини, что сразу не ответила.
1) порядок цвета любой
2)квадраты на экран выдаются сразу

[AlexFess]

тогда примерно так:

program gr1;
uses graph, crt;
var x1, x2, y1, y2, gd, gm, i: integer;
begin
 {инициализация графики}
 detectgraph(gd, gm);
 initgraph(gd, gm, ''); {'' - два апострофа}
 {координаты первого квадрата}
 x1:=getmaxx div 6;
 y1:=getmaxy div 3;
 x2:=2*x1; y2:=y1+x1;
 {вывод и изменение для следующего}
 for i:=1 to 3 do
 begin
  setfillstyle(1, i+1);
  bar(x1, y1, x2, y2);
  x1:=x2+x1;
  x2:=x2+2*x1;
 end;
 repeat until keypressed; {отображать пока не будет нажата anykey))}
end.

вроде должно работать...

[Len4i]{]

спасибо огромное, сейчас попробую

ну вот попробовала, но это не совсем то. вернее только половина. сейчас программа выдает только 2 квадрата разного цвета, а мне нужно, чтобы после нажатия какой-нибудь клавиши появились два квадаты у которых нужно выбрать цвета, сравнить их с первыми двумя квадратами и выдать ответ (совпедеют ли цвета или нет)