[SemtEX]

Sind Blondienen = THunfische? [...]

naja, vom geruch her... ähm.. THEMAWECHSEL!!!

Ich warte ja immer noch auf die TurboPascal-Variante ... kann das etwa keiner mehr?

ok, dann oute ich mich mal:

Code:

program thunfisch;

var  
  Ort : string = '';
  F1  : string = '';
  F2  : string = '';
  Pointe : boolean = False;
    
function treffen (F1, F2, Ort : string) : boolean;
begin
  Writeln('Treffen sich ein ' + F1 + ' und ein ' + F2 + ' ' + Ort);
  treffen := True;
end;

function poppen (F1, F2 : string) : boolean;
begin
  Writeln('Da poppt der ' + F2 + ' plötzlich den ' + F1 + ' (von hinten!?)');
  poppen := True;
end;

begin
  Ort := 'tief unten am Meeresboden';
  F1 := 'Walfisch';
  F2 := 'Thunfisch';

  repeat
    if treffen(F1, F2, Ort) = True then begin
      Writeln('*blubbediblubb*');
      if poppen(F1, F2) = True then begin
          Writeln('Walfisch: "Das darfst du nicht Thun, fisch!"');
          Writeln('Thunfisch: "Du hast keine Wal, fisch!"');
          Pointe := True;
      end
    end
  until Pointe = True;
    
    if Pointe = True then begin
      Writeln('(Man darf jetzt lachen!)');
    end
    
end.

(läuft sogar, falls noch jemand nen compiler dafür rumliegen hat...)