program pierdolonegorole;
uses crt;
var
imie,odp:string;
win:integer;
powrot:char;

label start,gorolsiejebnyl,pytani1,main,exit,zaglupi;

begin
textbackground(black);
clrscr;
main:
window(15,10,60,40);
textbackground(red);
textcolor(white);
clrscr;
writeln('        WITEJ W PROGRAMIE "GOROLKILLER"');
writeln('Przedstaw sie prosze.');
readln(imie);
writeln('Witej ',imie);
if length(imie)=0 then goto gorolsiejebnyl else goto pytani1;


gorolsiejebnyl:
               clrscr;
               writeln('PIERDOLONY GOROLU NAWET SIE PRZEDSTAWIC NIEUMISZ!!');
               writeln('Wybier se opcja:');
               writeln('1=Jestem glupim gorolem i nieumiem obslugiwac kompa wiec wylacz to gowno.');
               writeln('2=A dostane 2 szanse??');
               readln(powrot);
               if powrot='1' then goto exit;
               if powrot='2' then goto main else goto zaglupi;


pytani1:
writeln('                 GRATULACJE   ',imie);
writeln('Je zes bardzo mondrym gorolem skoro zes tak daleko zaszol!!');
textbackground(blue);
clrscr;
writeln('Pytani 1:');
writeln('Co to je "szolka"');
writeln('a=but|b=cukierek|c=szklanka');
readln(odp);
if odp='a' then
begin
writeln('lojezu glupota goroli mie przerasto szolka to je c=szklanka');
goto zaglupi;
end;
if odp='b' then
begin
writeln('ja cukierka bys chciol? gorole ino gnoj zerom!!');
goto zaglupi;
end;
if odp='c' then
begin
repeat
textbackground(random(16));
clrscr;
writeln('             GRATULACJE!!');
delay(90);
win:=win+1
until win=16;
textbackground(red);
clrscr;
writeln('To zes mie zaskoczyl!!');
readln;
goto exit;
end;


exit:
clrscr;
writeln('Spierdalej gorolu!!');
readln;
halt;
zaglupi:
writeln('Tys je za glupi nawet na prosty program w pascalu');
writeln('Tryb IDOTOODPORNY AKTYWNY');
readln;
halt;

end.