program liitmine;
var
 x,i,y:integer;
begin
 randomize;
 for i:=1 to 10 do
 x:=random(10)+1; 
 y:=random(10)+1;
 write(x,'-',y,'=  ');
 writeln(x,'-',y,'=',x-y);
 if(x-y<0) then 
 writeln(x,'+',y,'=',x+y);
 write(x,'+',y,'=  ');
 writeln;
end.