помогите с зачетом

[Salander]

Код:

var
limit, count, number, otvet : integer ;

begin

writeln('Игра "Угадай число"');
write('Введите число попыток : '); readln(limit);
writeln('Компьютер загадал число от 1 до 10');
randomize ;

count := 1 ;
number := 1 + random(10);

repeat

write(count, ' попытка : '); readln(otvet);

if (otvet = number) then
begin
writeln('Вы выиграли поздравляю!!!');
break;
end
else
begin 
writeln('Вы не угадали!!!');
count := count + 1 ;
end;
if (count > limit) then
begin
writeln('Вы проиграли');
writeln('Это было число : ', number);
end;
until(count > limit);
writeln('Для выхода из игры нажмите Enter');
readln;
end.

Куда засунуть данное условие?
number<otvet then writeln('Слишком много') else
writeln ('слишком мало');

[Алексей_2012]

Добавить отзыв для Salander

погнали,начнем с

Пожаловаться на это сообщение

вы забыли нажать на кнопку с решеткой)) при оформлении кода, код нечитабелен

По моему Ваше условие нужно засунуть, сюда

if (otvet = number) then
begin
writeln('Вы выиграли поздравляю!!!');
break;
end
else

после иначе

[Salander]

что-то не выходит, могли бы вы написать валидный код?

[Utkin]

Я бы переделал цикл на стандартный for - так и проще и логика программы понятней станет.