13 lines
336 B
ObjectPascal
13 lines
336 B
ObjectPascal
begin
|
|
var randomNumber := Random(1..10);
|
|
Println('I''m thinking of a number between 1 and 10. Can you guess it?');
|
|
while True do
|
|
begin
|
|
Print('Guess:');
|
|
var x := ReadlnInteger;
|
|
if x = randomNumber then
|
|
break;
|
|
Println('That''s not it. Guess again.');
|
|
end;
|
|
Println('Congrats!! You guessed right!6');
|
|
end.
|