program Pikachu;
uses crt,dos;
var i:integer;
procedure Writexy(x,y:integer; retazec:string);
var zaciatok, koniec:integer;
Begin
if (y<1) or (y>50) or (x>80) or (x+length(string)<1) then exit;
if then zaciatok:=
else zaciatok:=1;
gotoxy();
write();
end;
begin
clrscr;
writeln(' .::. ');
writeln(' .;:**');
writeln(' `');
writeln(' .:XHHHHk. db. .;;. dH MX ');
writeln('oMMMMMMMMMMM ~MM dMMP :MMMMMR MMM MR ~MRMN ');
writeln('QMMMMMb "MMX MMMMMMP !MX'':M~ MMM MMM .oo. XMMM''MMM');
writeln(' `MMMM. )M> :X!Hk. MMMM XMM.o" . MMMMMMM X?XMMM MMM>!MMP ');
writeln(' ''MMMb.dM!XM M''?M MMMMMX.`MMMMMMMM~ MM MMM XM `" MX MMXXMM ''');
writeln(' ~MMMMM~ XMM. .XM XM`"MMMb.~*?**~ .MMX M t MMbooMM XMMMMMP ');
writeln(' ?MMM> YMMMMMM! MM `?MMRb. `""" !L"MMMMM XM IMMM ');
writeln(' MMMX "MMMM" MM ~%: !Mh.""" dMI IMMP ');
writeln(' MMM. IMX ');
writeln(' ~M!M IMP ');
repeat
gotoxy(30,15);write('Press ENTER!');
delay(1000);
gotoxy(30,15);write(' ');
delay(400);
until keypressed;
for i:=1 to 50 do begin
gotoxy(i,1);write(' :::, ');
gotoxy(i,2);write( '::::"._ ');
gotoxy(i,3);write(' ". ". __.,,. ');
gotoxy(i,4);write(' ". ". _..-'''':::" ');
gotoxy(i,5);write(' \ \,.--""""--.,-'' _:' );
gotoxy(i,6);write(' /\ \ . . .-' );
gotoxy(i,7);write(' / \ \ ":' );
gotoxy(i,8);write(' / \ : : ');
gotoxy(i,9);write(' / \: : ');
gotoxy(i,10);write('\ : : ');
gotoxy(i,11);write(' \ : ,--, ,-, : ');
gotoxy(i,12);write(' \ : |(_):| |():| : ');
gotoxy(i,13);write(' \ : __"--" __ "-"_ : ');
gotoxy(i,14);write(' \ : / \ \/ / \ : ');
gotoxy(i,15);write(' \ : ( ) \_/ : ');
gotoxy(i,16);write(' .-'' . : \__/ "--''--" : ');
gotoxy(i,17);write(' \ . .-:". .: ');
gotoxy(i,18);write(' \" :| : "-.__ ___...-" : ');
gotoxy(i,19);write(' \::|: '''''' ". ');
gotoxy(i,20);write(' .,:::": : ". ');
gotoxy(i,21);write(' \::\: : "._ ');
gotoxy(i,22);write(' \:: : / "-._ ". ');
gotoxy(i,23);write(' \: : / . :-._ :-' );
gotoxy(i,24);write(' : : / : : '' ');
gotoxy(i,25);write(' : ." ) . : : ');
gotoxy(i,26);write(' : : ." ". : : ');
gotoxy(i,27);write(' : ".." : _." _.: ');
gotoxy(i,28);write(' "._ :..---"\""" _) ');
gotoxy(i,29);write(' '':---''_) "-"-' );
gotoxy(i,30);write(' "-"-' );
delay(70);
end;
readln;
end.