Фигурки Опции

[MagicPRO]

Народ, может у когото есть программка такого плана: "Вводишь любые фигурки(круги, квадраты, треугольники), затем нажимаешь какието клавиши и на экране мигают определенные фигуры(либо только квадраты, либо круги, либо треугольники)"

[Sam0784]

Зацени демоверсию

Код

program treugg;
uses graph,crt;
var
i:integer;
tr,gd,ge:integer;
key:char;
procedure treug;
begin
repeat
tr:=-tr;
if tr>0 then setcolor(15) else setcolor(0);
line(200,10,100,100);
line(100,100,200,210);
line(200,210,200,10);
delay(50000);
until keypressed;
end;
procedure rec;
begin
  repeat
   tr:=-tr;
    if tr>0 then setcolor(15) else setcolor(0);
   rectangle(300,50,500,150);
   delay(50000);
  until keypressed;
end;
procedure krug;
begin
  repeat
   tr:=-tr;
    if tr>0 then setcolor(15) else setcolor(0);
   circle(200,300,70);
   delay(50000);
  until keypressed;
end;
begin
Gd:=Detect;
InitGraph(Gd, Ge, 'd:\kod');
  If GraphResult <> grOk Then Halt(1);
tr:=-1;
gotoxy(200,200);
outtextxy(10,460,'Esk-quit');
outtextxy(10,444,'k-krug');
outtextxy(10,428,'p-priamougolnik');
outtextxy(10,412,'t-treugolnik');
repeat
if keypressed then
begin
  key:=readkey;
  delay(10000);
  if key='t' then treug;
  if key='p' then rec;
  if key='k' then krug;
end;
until key=#27;
end.

скажи что конкретно надо и сделаем
(тоб откампелировать надо в InitGraph(Gd, Ge, 'd:\kod');) вместо д:\код написать путь к graph.tpu