repeat ... until

[himitsu]

Delphi-Quellcode:

repeat

  ...

  {writeln('Soll das und das gemacht werden? (j/n):');}
  repeat 
    readln(a);
    if (a <> 'j') and (a <> 'n') then writeln('Falsche Eingabe');
  until (a = 'j') or (a = 'n');
until a = 'n';