{ (c) 1998 CREEQ <creeq@web.de> }
program Eine_Frage_fragen;
uses Crt;
var c : char;
label 1;
begin
  clrscr;
  writeln('M”chtest Du aufh”ren ?  (J/N)');
  writeln;
1:readln(c);
  case c of
  'J','j' : begin;
              writeln;
              writeln('OK, Bis Bald !!!');
            end;
  'N','n' : begin;
              writeln;
              writeln('Wasss? Egal, ich mach trozdem Schluá.');
            end;
  else
    writeln;
    writeln('Falscher Buchstabe.');
    writeln('Versuchs nochmal');
    writeln;
    goto 1;
  end;
  readkey;
end.