textcolor(15);
write(' Угадай число (0-100) : ');
readln(C);
textcolor(13);
if C>100 then begin writeln(' СЛИШКОМ БОЛЬШОЕ ЧИСЛО! ИНТЕРВАЛ: от 0 до 100'); T:=T+1; end;
if C<0 then begin writeln(' СЛИШКОМ МАЛЕНЬКОЕ ЧИСЛО! ИНТЕРВАЛ: от 0 до 100'); T:=T+1; end;
textcolor(10);
if B>C then writeln(' НЕДОЛЁТ...') else T:=T-1;
if B<C then writeln(' ПЕРЕЛЁТ...') else T:=T-1;
textcolor(10);
if B=C then begin writeln(' УГАДАЛ!'); A:=A-1; end;
if B=C then begin D:=D+1; T:=T+9; end;
if T<=0 then A:=A+1;
if T<=0 then E:=E+1;
textcolor(4);
if T<=0 then writeln(' ПРОИГРАЛ!!!');
textcolor(10);
if B=C then writeln(' +9 жизней');
textcolor(12);
if B>C then writeln(' -1 жизнь');
if B<C then writeln(' -1 жизнь');