Delphi-Quellcode:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
s : Integer;
x : Integer;
begin
randomize;
x := Random(100) + 1;
readln(s); // Lesen von Standardinput
if s=x then write('Richtig es ist:');
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
writeln(x);
readln;
end.
jetzt soll man nur noch weitere versuche haben, bis man es richtig hat...irgendeine hübsche schleife?!