program lahuta;

procedure lahutamine;
var a, b, vahendatav, vahendaja, vahe: integer;
begin
 a:=random(99)+2;
 b:=random(99)+1;
 if a>b then begin 
   vahendatav:=a; 
   vahendaja:=b;
 end
 else begin 
   vahendatav:=b;
   vahendaja:=a;
   if vahendatav=vahendaja then vahendaja:=vahendaja-1;
 end;
 vahe:=vahendatav-vahendaja;

 write(vahendatav:3,'-',vahendaja:2,'=');
 write(' ':30); {30 thikut}
 writeln(vahendatav:3,'-',vahendaja:2,'=',vahe:2);
 writeln;
end;

begin
 randomize;
 lahutamine;
 lahutamine;
end.