Условный оператор+графика

uses crt,graph;
var n,i:byte;
    x,y,k:integer;
    s:string;
    w:char;
begin
repeat
clrscr;
write('Vvedite celoe chislo n=');
readln(n);
x:=0;
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
if n mod 3=0 then
begin
  setcolor(9);
  circle(x,y,50);
  str(n,s);
  outtextXY(x-5,y-5,s);
  readkey
 end
else if n mod 3=1 then
 begin
  setcolor(12);
  k:=round(50*sin(pi/3)/cos(pi/3)/3);
  line(x-50,y+k,x,y+-2*k);
  line(x,y-2*k,x+50,y+k);
  line(x+50,y+k,x-50,y+k);
  str(n,s);
  outtextXY(x-5,y-5,s);
  readkey
 end
else if n mod 3=2 then
 begin
  setbkcolor(12);
  setcolor(1);
  str(n mod 3,s);
  outtextXY(x,y,s);
  for i:=1 to 4 do
   begin
    delay(2000);
    setbkcolor(12-i);
    outtextXY(x,y,s);
   end;
  readkey
 end;
restorecrtmode;
write('Џ®ўв®аЁвм y/n?');
readln(w);
until w='n';
end.