var x ,y, z, n: integer;
 begin
 writeln('K�sib tehte vastust ja teatab, kas pakkusid rohkem v6i v„hem.');
  randomize;
  x:=random(6);
  y:=random(7);
  repeat
   writeln (x,'*',y,'=');
   readln (z);
   n:=x*y-z;
   if z=x*y then writeln ('Oled tubli!')
   else
    begin
     if z=x*y-n then
     begin
      if n=1 then writeln ('Peaaegu on äige!');
      if n>1 then writeln ('Sa pakkusid v„hem!')
      else writeln ('Sa pakkusid rohkem!');
     end;
    end;
  until z=x*y;
  readln;
end.