program tuersteher;

uses crt;
var a1,a2,a3,a4:char;
    eintritt,hunger,durst,geld:boolean;

BEGIN
     textbackground(red);textcolor(yellow);clrscr;
     textbackground(green);
     gotoxy(30,1);writeln(' Der Trsteher');
     gotoxy(28,2);writeln('======================');
     writeln;writeln;
     gotoxy(60,3);writeln('Design by AW+AM');
     textbackground(red);writeln;


     writeln;write('Haben Sie Hunger [j/n]');readln(a1);
     IF a1='j' THEN BEGIN
                    write('Haben Sie denn auch Durst [j/n]');readln(a2); END
        ELSE BEGIN  write('Haben Sie denn wenigstens Durst [j/n]?');readln(a2); END;
     write('Haben Sie wenigstens Geld mit? [j/n]');readln(a3);

     hunger:=(a1='j');
     durst :=(a2='j');
     geld  :=(a3='j');

     writeln;writeln;writeln;
     eintritt:=geld AND ( hunger OR durst );
     IF eintritt then BEGIN writeln('Herzlich willkommen'); END
        ELSE writeln('Auf Wiedersehen! Wir haben nichts fr sie!');
readln;
END.