uses crt;
var
i:integer;
begin
textbackground(lightblue);
clrscr;
textcolor(yellow);
for i:=1 to 20 do
begin
gotoxy(31+i,8);
write('-');
end;
for i:=1 to 20 do
begin
gotoxy(31+i,13);
write('-');
end;
for i:=1 to 20 do
begin
gotoxy(31+i,18);
write('-');
end;
for i:=1 to 20 do
begin
gotoxy(31+i,23);
write('_');
end;
for i:=1 to 16 do
begin
gotoxy(31,i+7);
write(#204);
end;
for i:=1 to 16 do
begin
gotoxy(52,i+7);
write(#204);
end;
for i:=1 to 15 do
begin
gotoxy(36,i+8);
write(#124);
end;
for i:=1 to 15 do
begin
gotoxy(41,i+8);
write(#124);
end;
for i:=1 to 15 do
begin
gotoxy(46,i+8);
write(#124);
end;
gotoxy(40,20);
write('*');
gotoxy(42,20);
write('*');
for i:=1 to 39 do
begin
gotoxy(i,25);
write(' ',#1);
gotoxy(i,26);
write('/',#124,'');
gotoxy(i,27);
write('/ ');
delay(80);
gotoxy(i,25);
write(' ',' ');
gotoxy(i,26);
write(' ',' ',' ');
gotoxy(i,27);
write(' ');
delay(10);
end;
gotoxy(39,25);
write(' ',#1);
gotoxy(39,26);
write('/',#124,'');
gotoxy(39,27);
write('/ ');
gotoxy(39,25);
write(' ',' ');
gotoxy(39,26);
write(' ',' ',' ');
gotoxy(39,27);
write(' ');
for i:=10 to 15 do
begin
gotoxy(41,i+8);
write(' ');
end;
gotoxy(40,20);
write(' ');
gotoxy(42,20);
write(' ');

gotoxy(41,20);
write(' ',#1);
gotoxy(41,21);
write('/',#124,'');
gotoxy(41,22);
write('/ ');
delay(1005);
gotoxy(41,20);
write(' ',' ');
gotoxy(41,21);
write(' ',' ',' ');
gotoxy(41,22);
write(' ');
for i:=10 to 15 do
begin
gotoxy(41,i+8);
write(#124);
end;
gotoxy(40,20);
write('*');
gotoxy(42,20);
write('*');
delay(1005);
clrscr;
for i:=1 to 11 do
begin
gotoxy(37+i,13);
write(#219);
gotoxy(37+i,14);
write(#219);
gotoxy(37+i,15);
write(#219);
gotoxy(37+i,16);
write(#219);
gotoxy(37+i,17);
write(#219);
gotoxy(37+i,18);
write(#219);
end;
for i:=1 to 6 do
begin
gotoxy(43,12+i);
write(#124);
end;
textbackground(lightred);
textcolor(yellow);
gotoxy(36,15);
write('O');
textbackground(lightblue);
textcolor(yellow);
for i:=1 to 33 do
begin
gotoxy(i,15);
write(' ',#1);
gotoxy(i,16);
write('/',#124,'');
gotoxy(i,17);
write('/ ');
delay(80);
gotoxy(i,15);
write(' ',' ');
gotoxy(i,16);
write(' ',' ',' ');
gotoxy(i,17);
write(' ');
delay(10);
end;
gotoxy(33,15);
write(' ',#1);
gotoxy(33,16);
write('/',#124,'');
gotoxy(33,17);
write('/ ');

gotoxy(35,16);
write('-');
delay(300);
gotoxy(35,16);
write('');
delay(300);
for i:=1 to 5 do
begin
gotoxy(42+i,13);
write(' ');
gotoxy(42+i,14);
write(' ');
gotoxy(42+i,15);
write(' ');
gotoxy(42+i,16);
write(' ');
gotoxy(42+i,17);
write(' ');
gotoxy(42+i,18);
write(' ');
delay(200);

gotoxy(44-i,13);
write(' ');
gotoxy(44-i,14);
write(' ');
gotoxy(44-i,15);
write(' ');
gotoxy(44-i,16);
write(' ');
gotoxy(44-i,17);
write(' ');
gotoxy(44-i,18);
write(' ');
delay(200);
end;


gotoxy(33,15);
write(' ',' ');
gotoxy(33,16);
write(' ',' ',' ');
gotoxy(33,17);
write(' ');

gotoxy(43,15);
write(' ',#1);
gotoxy(43,16);
write('/',#124,'');
gotoxy(43,17);
write('/ ');
delay(1005);
for i:=1 to 5 do
begin
gotoxy(48-i,13);
write(#219);
gotoxy(48-i,14);
write(#219);
gotoxy(48-i,15);
write(#219);
gotoxy(48-i,16);
write(#219);
gotoxy(48-i,17);
write(#219);
gotoxy(48-i,18);
write(#219);
delay(200);

gotoxy(38+i,13);
write(#219);
gotoxy(38+i,14);
write(#219);
gotoxy(38+i,15);
write(#219);
gotoxy(38+i,16);
write(#219);
gotoxy(38+i,17);
write(#219);
gotoxy(38+i,18);
write(#219);
delay(200);
end;
for i:=1 to 6 do
begin
gotoxy(43,12+i);
write(#124);
end;
for i:=1 to 6 do
begin
gotoxy(43,11);
write(i);
delay(1005);
end;
if i=6 then
begin
for i:=1 to 5 do
begin
gotoxy(42+i,13);
write(' ');
gotoxy(42+i,14);
write(' ');
gotoxy(42+i,15);
write(' ');
gotoxy(42+i,16);
write(' ');
gotoxy(42+i,17);
write(' ');
gotoxy(42+i,18);
write(' ');
delay(200);

gotoxy(44-i,13);
write(' ');
gotoxy(44-i,14);
write(' ');
gotoxy(44-i,15);
write(' ');
gotoxy(44-i,16);
write(' ');
gotoxy(44-i,17);
write(' ');
gotoxy(44-i,18);
write(' ');
delay(200);
end;
gotoxy(43,15);
write(' ',#1);
gotoxy(43,16);
write('/',#124,'');
gotoxy(43,17);
write('/ ');
delay(1005);
gotoxy(43,15);
write(' ',' ');
gotoxy(43,16);
write(' ',' ',' ');
gotoxy(43,17);
write(' ');

gotoxy(4,13);
write('_______');
gotoxy(4,18);
write('_______');
for i:=1 to 5 do
begin
gotoxy(3,13+i);
write(#124);
end;
for i:=1 to 5 do
begin
gotoxy(11,13+i);
write(#124);
end;
gotoxy(10,15);
write('*');
for i:=33 downto 13 do
begin
gotoxy(i,15);
write(' ',#1);
gotoxy(i,16);
write('/',#124,'');
gotoxy(i,17);
write('/ ');
delay(80);

gotoxy(i,15);
write(' ',' ');
gotoxy(i,16);
write(' ',' ',' ');
gotoxy(i,17);
write(' ');
delay(10);
end;
gotoxy(12,15);
write(' ',#1);
gotoxy(12,16);
write('/',#124,'');
gotoxy(12,17);
write('/ ');
end;
clrscr;
gotoxy(40,5);
write(' ',#1);
gotoxy(40,6);
write('/',#124,'');
gotoxy(40,7);
write('/ ');
for i:=1 to 20 do
begin
gotoxy(31+i,8);
write('-');
end;
for i:=1 to 20 do
begin
gotoxy(31+i,13);
write('-');
end;
for i:=1 to 20 do
begin
gotoxy(31+i,18);
write('-');
end;
for i:=1 to 20 do
begin
gotoxy(31+i,23);
write('_');
end;
for i:=1 to 16 do
begin
gotoxy(31,i+7);
write(#204);
end;
for i:=1 to 16 do
begin
gotoxy(52,i+7);
write(#204);
end;
for i:=1 to 15 do
begin
gotoxy(36,i+8);
write(#124);
end;
for i:=1 to 15 do
begin
gotoxy(41,i+8);
write(#124);
end;
for i:=1 to 15 do
begin
gotoxy(46,i+8);
write(#124);
end;
gotoxy(40,20);
write('*');
gotoxy(42,20);
write('*');
delay(1005);
delay(1005);
gotoxy(10,27);
write(' ',#1);
gotoxy(10,28);
write('/','P','');
gotoxy(10,29);
write('/ ');
delay(1005);
delay(1005);

gotoxy(50,26);
write(' ',#1);
gotoxy(50,27);
write('/',#124,'');
gotoxy(50,28);
write('/ ');
delay(200);
gotoxy(25,26);
write(' ',#1);
gotoxy(25,27);
write('/',#124,'');
gotoxy(25,28);
write('/ ');
delay(900);
gotoxy(17,25);
write(' ',#1);
gotoxy(17,26);
write('/',#124,'');
gotoxy(17,27);
write('/ ');
delay(1005);
delay(125);
gotoxy(35,28);
write(' ',#1);
gotoxy(35,29);
write('/',#124,'');
gotoxy(35,30);
write('/ ');
delay(900);
delay(800);
gotoxy(62,28);
write(' ',#1);
gotoxy(62,29);
write('/','P','');
gotoxy(62,30);
write('/ ');
delay(60);
gotoxy(22,5);
write('<Cekilin>');
gotoxy(22,6);
write(' <Atliyicam>');
gotoxy(22,7);
write('<Olmek istiyorum!>');
delay(1005);
delay(900);
gotoxy(22,5);
write(' ');
gotoxy(22,6);
write(' ');
gotoxy(22,7);
write(' ');
delay(1005);

gotoxy(65,27);
write('<DUR!>');
gotoxy(65,28);
write(' <Yapma!>');
gotoxy(65,29);
write('<Kiyma kendine!>');
delay(1005);
delay(900);
gotoxy(65,27);
write(' ');
gotoxy(65,28);
write(' ');
gotoxy(65,29);
write(' ');
gotoxy(40,6);
write(' ');
gotoxy(40,7);
write(' ');
for i:=1 to 10 do
begin
gotoxy(40+i,5);
write(' ',#1);
gotoxy(40+i,6);
write('/',#124,'');
gotoxy(40+i,7);
write('/ ');
delay(90);
gotoxy(40+i,5);
write(' ');
gotoxy(40+i,6);
write(' ');
gotoxy(40+i,7);
write(' ');
delay(10);
end;
for i:=1 to 14 do
begin
gotoxy(52+i,8+i);
write(' ',#1);
gotoxy(52+i,9+i);
write('/',#124,'');
gotoxy(52+i,10+i);
write('/ ');
delay(90);
gotoxy(52+i,8+i);
write(' ');
gotoxy(52+i,9+i);
write(' ');
gotoxy(52+i,10+i);
write(' ');
delay(10);
end;
if i=14 then
begin
gotoxy(68,23);
write(' ');
textbackground(lightred);
gotoxy(70,22);
write('/');
gotoxy(67,20);
write(#1);
gotoxy(55,19);
write('');
gotoxy(59,23);
write('/');
gotoxy(63,24);
write('');
end;
delay(1005);
clrscr;
gotoxy(1,10);
writeln(' Bu bir ZiYA AHMEDSOY yapimidir!');
writeln();
writeln(' Kisa Film siparis vermek isteyenler:');
writeln();
writeln(' badboy_ziya@hotmail.com');
writeln();
writeln(' sonata@nakhchivan.az');
writeln();
writeln(' Siparisler en kisa zamanda ucretSiZ hazirlanir!');
readln();
end.

ziya ahmedsoy
badboy_ziya@hotmail.com sonata@nakhchivan.az