Скрытое введенное значение

[viks1]

Возможен ли такой оператор, который не будет выводить на экран то что я введу с клавиатуры?
Т.е, я пишу программу, ну типа мини игру, угадай число.
Я ввожу число, а там уже игрок вводит свои значения.
Но проблема в том, что то что я загадываю, остается на мониторе.
Как скрыть это?

[Mad_Cat]

uses crt;
{....}
begin
{...}
Readln(X);
clrscr;
{...}
end.

[viks1]

спасибо.
Еще вопросик, как сделать выброс с программы при выполненном задании?
допустим человек угадал число, и что бы не было дальше запроса на ввод числа?
и еще, возможно сделать ограничение количества попыток ввода через while?

[Mad_Cat]

ограничение количества попыток ввода через while?

Kol_Pop:=0;
while Kol_Pop <=Max_Kol_Pop do
begin
inc(Kol_Pop);
{...}

end;

как сделать выброс с программы при выполненном задании

Repeat 
{здесь угадывание}

until (zagad = otgad) or (Kol_Pop >Max_Kol_Pop );

[Niro]

uses crt;
{....}
begin
{...}
Readln(X);
clrscr;
{...}
end.

Неа
Но можно так

repeat
 c:=readkey;
 s:=s+c;
until c=#13

c - типа char
ну а после, преобразуете строку S в число, если надо
P.S. хотя может и можно, как предложил Mad_Cat, я подумал, что вводимое число не должно отображаться на экране(

[viks1]

Сообщение от Mad_Cat

inc(Kol_Pop);

Что оно делает?

[Mad_Cat]

inc(Kol_Pop);

==

Kol_Pop:=Kol_Pop+1;

[viks1]

Сообщение от Mad_Cat

inc(Kol_Pop);

==

Kol_Pop:=Kol_Pop+1;

а, я понял, в ассемблере такая команда есть
не знал что в паскале такая тоже есть

[viks1]

при использовании until у меня появилась ошибка error statement
что делать?

[Вадим Мошев]

Сообщение от viks1

при использовании until у меня появилась ошибка error statement
что делать?

Возможно, вы неверное записали конструкцию цикла Repeat.
Она пишется так:

Repeat
	<оператор 1>;
	<оператор 2>;
	.......
	<оператор N>;
Until <Логическое выражение>

Цикл завершится в том случае, если Логическое выражение, поставленное после слова Until, будет ИСТИННЫМ.

У вас так же записано? А вообще, покажите то место, где у вас возникает ошибка.