Zufällige Zahl in Konsole

[s.h.a.r.k]

Würde die aber zu etwas mehr "Struktur und Form" raten, dann wirds etwas übersichtlicher und besser (für andere) lesbar

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  RandomValue : Integer;
  Input : Integer;
begin
  Randomize();

  RandomValue := Random(100) + 1;
  Input := -1;
  while (RandomValue <> Input) do
    // Lesen von Standardinput
    Readln(Input);

    // Wert prüfen und Schreiben nach Standardoutput
    if (Input < RandomValue) then
      Write('Falsch es war zu klein');
    if (Input > RandomValue) then
      Write('Falsch es war zu gross');
  end;
  Writeln('Korrekte Lösung ist: ', x);

  Readln;
end.