program whatthehell;
uses crt;
VAR
otto : string;
procedure IchWillEinenMartini
begin
WriteLN ('Willkommen an Bord der WTFLOLOLBBQprise');
WriteLN ();
WriteLN ('Bitte geben sie ihren Namen ein');
while (true) do
begin
ReadLN (otto);
if ( otto ='cptobvious') then
begin
WriteLN ('Vielen Dank das sie sich für die WTFLOLOLBBQprise entschieden haben');
WriteLN ();
WriteLN ('Wir wünschen ihnen einen angenehmen Aufenthalt'):
break;
End
ELSE if otto ='help' then
begin
WriteLN ('Es tut uns leid ihnen mitteilen zu müssen das sie anhaben');
WriteLN ();
WriteLN ('gezeichnet cptobvious');
End
ELSE
begin
WriteLN ('Tut uns sehr leid aber cptobvious ist busy atm contact him per email rofle@mirlat.te');
End
end
End;
Begin
IchWillEinenMartini;
readLn;
clrscr;
End.