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.