Pascal-Rechenprogramm: Fussschleife

[himitsu]

na gut, dann ist Freepascal aber etwas eigenartig BEGIN ohne END ... nja, wenn es so geht, dann isses wohl OK

und das UpperCase würde ich anders verschachteln
until UpperCase(Eingabe) = 'N';