Программа Угадай

[Andrey35]

Program Ugaday;
var L,R,N,C:integer;
Y:0..1;
begin
writeln('Vvedite znachenie, v predelah kotorogo Vi zadumali chislo');
readln(N);
L:=1; R:=N;
while L<R do
begin
C:=(L+R) div 2;
writeln('Vashe chislo > ',C,'? Vvedite 1, esli Da i 0,esli Net');
readln(Y);
if Y=1
then L:=C+1
Else R:=C
end;
writeln('Vi zadumali', L)
end.

1. Нужно чтобы выводилось количество шагов, потребовавшихся для угадывания числа.
2. Разработать программу угадывания числа, задуманного компьютером , используя метод половинного деления .
Подсказка:использовать функцию Random(N). В программе должен быть организован диалог человека с компьютером.

[Poma][a]

учись код оформлять!
2)

{3.14 Отгадай число}
program guessDigit;

var
	l, k, r, m : Word;

begin
	l := 1;
	r := 1000;
	while l < r do
	begin
		m := (l + r) div 2;
		WriteLn ('Ваше число больше ', m, '?');
		ReadLn (k);
		if k = 1 then
			l := m + 1
		else
			r := m;
	end;
	WriteLn (l)
end.

[Andrey35]

Сообщение от Poma][a

учись код оформлять!
2)

{3.14 Отгадай число}
program guessDigit;

var
	l, k, r, m : Word;

begin
	l := 1;
	r := 1000;
	while l < r do
	begin
		m := (l + r) div 2;
		WriteLn ('Ваше число больше ', m, '?');
		ReadLn (k);
		if k = 1 then
			l := m + 1
		else
			r := m;
	end;
	WriteLn (l)
end.

Спасибо !!!
а первую можно ?

[Poma][a]

Program Ugaday;
var L,R,N,C, count :integer;
Y:0..1;
begin
writeln('Vvedite znachenie, v predelah kotorogo Vi zadumali chislo');
readln(N);
L:=1; R:=N;
count := 0;
while L<R do
begin
C:=(L+R) div 2;
writeln('Vashe chislo > ',C,'? Vvedite 1, esli Da i 0,esli Net');
readln(Y);
if Y=1
then L:=C+1
Else R:=C;
Inc (count);
end;
writeln('Vi zadumali', L, '   ', count)
end.

[Andrey35]

Сообщение от Poma][a

Program Ugaday;
var L,R,N,C, count :integer;
Y:0..1;
begin
writeln('Vvedite znachenie, v predelah kotorogo Vi zadumali chislo');
readln(N);
L:=1; R:=N;
count := 0;
while L<R do
begin
C:=(L+R) div 2;
writeln('Vashe chislo > ',C,'? Vvedite 1, esli Da i 0,esli Net');
readln(Y);
if Y=1
then L:=C+1
Else R:=C;
Inc (count);
end;
writeln('Vi zadumali', L, '   ', count)
end.

спасибо большое)))