Текстовый числовая звуковая графическая комбинированная
Правильный ответ: =ЕСЛИ(B8<=4;B8*1000;4000+(B8-4)*750)
var
a,b,c:integer;
begin
randomize;
a:=random(8);
c:=0;
repeat
writeln('Введи число: ');
if a<>b then
c:=c+1;
readln(b);
if b>a then
writeln('Загаданное число меньше ! ');
if b<a then
writeln('Загаданное число больше ! ');
if b=a then
writeln('Победа!');
until a=b;
writeln(c);
readln;
<span>end.</span>