Zufällige Zahl in Konsole

[s.h.a.r.k]

Repeat-Until?!

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s : Integer;
  x : Integer;

   begin
     randomize;

     x := Random(100) + 1;
     repeat
       readln(s); // Lesen von Standardinput
       if s<x then write('Falsch es war zu klein');
       if s>x then write('Falsch es war zu gross');
       writeln(s); // Schreiben nach Standardoutput
    until (s = x);
    writeln('Korrekte Lösung ist: ', x);
    readln;
end.