pascal > Snippets menu simple avec case et boucle

program questionreponse;
uses crt;
var
  rep: integer;
begin
  clrscr;
  repeat
    writeln('1. Oui');
    writeln('2. Non');
    readln(rep);

    case rep of
      1: writeln('Vous avez répondu Oui');
      2: writeln('Vous avez répondu Non');
    else
      writeln('Réponse impossible');
    end;
    writeln;
  until rep< 3;

  readln;
end.