uses crt;
var
i,c:integer;
begin
repeat
c:=c+1;
clrscr;
delay(00);
for i:=1 to 15 do
begin
gotoxy(c+i,10);
write(''_'');
end;
for i:=11 to 15 do
begin
gotoxy(c+1,i);
write(#179);
end;
for i:=1 to 15 do
begin
gotoxy(c+1+i,15);
write(''_'');
end;
for i:=11 to 15 do
begin
gotoxy(c+1+15,i);
write(#179);
end;
for i:=1 to 14 do
begin
gotoxy(c+1+i,12);
write(''_'');
end;
gotoxy(c+4,15);
write(#9);
gotoxy(c+12,15);
write(#9);
gotoxy(65,13);
write(#179);
gotoxy(64,13);
write(''/'');
gotoxy(66,13);
write(''\'');
gotoxy(64,14);
write(''/'');
gotoxy(66,14);
write(''\'');
gotoxy(65,12);
write(#1);
delay(55);
until(c=47);
if c=47 then
gotoxy(64,13);
write('' '');
gotoxy(66,13);
write('' '');
gotoxy(64,14);
write('' '');
gotoxy(66,14);
write('' '');
gotoxy(65,12);
write('' '');
gotoxy(65,13);
write('' '');
c:=1;
repeat
c:=c+1;
textbackground(lightred);
gotoxy(c+64,13-c);
write('' '');
gotoxy(c+64,13-c);
write(''/'');
gotoxy(c+66,13-c);
write('' '');
gotoxy(c+66,13-c);
write(''\'');
gotoxy(c+64,14-c);
write('' '');
gotoxy(c+64,14-c);
write(''/'');
gotoxy(c+66,14-c);
write('' '');
gotoxy(c+66,14-c);
write(''\'');
gotoxy(c+65,12-c);
write('' '');
gotoxy(c+65,12-c);
write(#1);
gotoxy(c+65,13-c);
write('' '');
gotoxy(c+65,13-c);
write(#179);
delay(55);
until(c=10);
readln();
end.
ziya ahmedsoy
sonata@nakhchivan.az