program podprogram;
uses graph,crt;

var gd,gm:smallint;
v,n,f,f2:integer;
s,q:char;

procedure terc(pocet:integer);
var i,k:integer;
begin
setcolor(15);
for i:=1 to pocet do begin
                     if i mod 2 =0 then setfillstyle(1,0)
                                   else setfillstyle(1,15);
                     k:=300-(i-1)*round(300/pocet);
                     fillellipse(650,350,k,k);
                     end;
end;


procedure animacia(farba:integer;smer:char);

var i,x,y:integer;
begin
for i:=1 to 500 do begin
                   case smer of
                   'h','H':begin x:=i*5; y:=350; end;
                   'v','V':begin x:=700; y:=i*5; end;
                   'd','D':begin x:=i*5; y:=i*5; end;
                   'u','U':begin x:=1000-i*5; y:=i*5; end;
                   else if (smer<>'q') and (i=1) then writeln('chyba - nova volba');
                   end;
                   if (smer='h') or (smer='H') or (smer='v') or (smer='V') or (smer='d') or(smer='D') or (smer='u') or(smer='U') then begin
                   setcolor(farba);
                   circle(x,y,30);
                   delay(10);
                   setcolor(0);
                   circle(x,y,30);
                   end;
                   end;

end;

procedure stvorec(x,y,d,f:integer);
begin
setfillstyle(1,f);
bar(x,y,x+d,y+d);
end;

procedure sachovnica(farba1,farba2,dlzka:integer);
var i,j:integer;
begin
for i:=1 to 8 do
    for j:=1 to 8 do begin
                     if (i mod 2 <>j mod 2) then stvorec(i*dlzka,j*dlzka,dlzka,farba1)
                                     else stvorec(i*dlzka,j*dlzka,dlzka,farba2) ;

                     end;
end;

begin
gd:=detect;
gm:=0;
initgraph(gd,gm,'');

repeat
writeln('zadaj svoju volbu');
readln(v);

case v of
1: begin
   writeln('zadaj pocet kruhov');
   readln(n);
   terc(n);
   end;
2: begin
   writeln('zadaj farbu');
   readln(f);
   repeat
   setcolor(0);
   bar(0,0,1500,1000);
   writeln('zadaj smer - h,H - v,V - d,D - u,U - q(koniec)');
   readln(s);
   animacia(f,s);
   until (s='q')
   end;
3: begin
   writeln('zadaj farbu1');
   readln(f);
   writeln('zadaj farbu2');
   readln(f2);
   writeln('zadaj velkost');
   readln(n);
   sachovnica(f,f2,n);
   end;
else if v<>99 then  writeln('chyba - opakuj volbu');
end;
until v=99;

readln;
closegraph;

end.