procedure WhatThe; begin write('Paste Bin? Or Pastie? What do you think a Pastie really is? See Logo.'); end; function WhatIsPastie: boolean; begin write('ask a lady'); result:= true; end,.