program TP2LEVEL1;

uses crt ;

var a,b,score,i:integer;
op1:char;
test:boolean;

function add(var a,b: integer):boolean;
var rep:integer;
begin
 writeln(a,'+',b,'=');
readln(rep);
 if rep=a+b then
 add:=true else writeln ( 'wrong answer');
end;

function sub(var a,b: integer):boolean;
var rep:integer;
begin
writeln(a,'-',b,'=');
readln(rep);
if rep=a-b then
sub:=true else writeln ( 'wrong answer');
end;


function mul(var a,b: integer):boolean;
var rep:integer;
begin
writeln(a,'x',b,'=');
readln(rep);
if rep=a*b then
mul:=true else writeln('wrong answer');
end;

function op():char;
var x:integer;
begin
 x:=random(300);
 if x<100 then op:='+';
 if x>100 then op:='-';
 if x>200 then op:='*';
end ;
 BEGIN


 i:=0;
  score:=0 ;
  writeln('           LEVEL1');
  repeat
randomize ;
a:=random(10)+1;
b:=random(10)+1;
op1:=op;
case op1 of
'+':  test:=add(a,b);
'-': test:=sub(a,b);
'*': test:=mul(a,b)
end;
if test=true then score:=score+1;
i:=i+1;

until i>=3;

readln;
end.