Program lab;
uses crt;
var z,x,y,f:integer;
begin
  repeat
  x:=random(10);
  y:=random(10);
  writeln(x,'*',y,' = ');
  read(z);
  if z=x*y then 
  begin 
    inc(f);
    writeln('Ответ верный!');
    writeln('Правильных ответов - ',f);
    readln;
    delay(1000); {пауза 1 секунда}
  end
  else 
  begin
    writeln('Ответ неверный!');
    writeln('Правильных ответов - ',f);
    readln;
    delay(3000); {пауза 3 секнды}
  end;
  clrscr;
  until z<>x*y;
end.