Program lol;
uses Crt;
var
    i,w,q,e,r,t,y,a,s,d,f,g,h,j,k,l: integer;
    o: string;
    p,u: char;
    label 1,2,3,4,5,6,7,8,9,0,10,11,12,13,14,15,16;

begin
writeln('Добро пожаловать в мегасуперкрутую программу, не несущую особого смысла,');
writeln(' а тем более пользы под названием "lol" =)');
textcolor(4); writeln('__________________________________________________________________________');
textcolor(7);
writeln('*примечание, прежде чем вы начнете. Все действия программы останавливаються');
writeln('нажатием ЛЮБОЙ кнопки.');
writeln('__________________________________________________________________________');
1:writeln('Чтобы продолжить, введите в строку ниже самое длинное английское слово =)');
writeln('"floccinaucinihilipilification" и желательно без ошибок =)');
readln(o);
if (o=('floccinaucinihilipilification')) or (o=('i am denfox')) then
begin
repeat
2:i:=random(15);
3:w:=random(15);
4:q:=random(15);
5:e:=random(15);
6:r:=random(15);
7:t:=random(15);
8:y:=random(15);
9:a:=random(15);
0:s:=random(15);
10:d:=random(15);
11:f:=random(15);
12:g:=random(15);
13:h:=random(15);
14:j:=random(15);
15:k:=random(15);
16:l:=random(15);
if (i=0) then goto 2;
if (w=0) then goto 3;
if (q=0) then goto 4;
if (e=0) then goto 5;
if (r=0) then goto 6;
if (t=0) then goto 7;
if (y=0) then goto 8;
if (a=0) then goto 9;
if (s=0) then goto 0;
if (d=0) then goto 10;
if (f=0) then goto 11;
if (g=0) then goto 12;
if (h=0) then goto 13;
if (j=0) then goto 14;
if (k=0) then goto 15;
if (l=0) then goto 16;
writeln;
writeln;
textcolor(i); writeln('LLLLLLLLLLL                  OOOOOOOOO     LLLLLLLLLLL             ');
textcolor(w); writeln('L:::::::::L                OO:::::::::OO   L:::::::::L             ');
textcolor(q); writeln('L:::::::::L              OO:::::::::::::OO L:::::::::L             ');
textcolor(e); writeln('LL:::::::LL             O:::::::OOO:::::::OLL:::::::LL             ');
textcolor(r); writeln('  L:::::L               O::::::O   O::::::O  L:::::L               ');
textcolor(t); writeln('  L:::::L               O:::::O     O:::::O  L:::::L               ');
textcolor(y); writeln('  L:::::L               O:::::O     O:::::O  L:::::L               ');
textcolor(a); writeln('  L:::::L               O:::::O     O:::::O  L:::::L               ');
textcolor(s); writeln('  L:::::L               O:::::O     O:::::O  L:::::L               ');
textcolor(d); writeln('  L:::::L               O:::::O     O:::::O  L:::::L               ');
textcolor(f); writeln('  L:::::L               O:::::O     O:::::O  L:::::L               ');
textcolor(g); writeln('  L:::::L         LLLLLLO::::::O   O::::::O  L:::::L         LLLLLL');
textcolor(h); writeln('LL:::::::LLLLLLLLL:::::LO:::::::OOO:::::::OLL:::::::LLLLLLLLL:::::L');
textcolor(j); writeln('L::::::::::::::::::::::L OO:::::::::::::OO L::::::::::::::::::::::L');
textcolor(k); writeln('L::::::::::::::::::::::L   OO:::::::::OO   L::::::::::::::::::::::L');
textcolor(l); writeln('LLLLLLLLLLLLLLLLLLLLLLLL     OOOOOOOOO     LLLLLLLLLLLLLLLLLLLLLLLL');
textcolor(7);
writeln;
writeln;
until KeyPressed;
p:=readKey;
writeln('Неужели надоело? Ну ладно... хотя... может еще разок программку прогнать? (y/n)');
readln(u);
if u='y' then goto 1;
end
else
begin
Writeln('Ну попросил же - без ошибок... Давай все заново, и на этот раз не ошибись!');
writeln('(нажми энтр)');
readln;
goto 1;
end;
end.