If then else schleife mit Proceduren

[taaktaak]

Delphi-Quellcode:

if v_zahl=1 then richtig
            else falsch;