Delphi-Quellcode:
Repeat
geratenZ := InputBox('Zahlenraten','Bitte geben Sie eine beleibige Zahl von 1 bis 20 ein !','');
Until Strtoint(geratenZ) = zufallZ;
end;
So muss man die Zahl So lange eingeben bis die "geratenZ" = "zufallZ" ist. Und das mit den im welchen Bereich hat Lucky ja schon gesagt