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.

{T„ienda programmi nii, et selles oleksid protseduurid 
 liitmine, lahutamine, korrutamine, jagamine. 
 Vasakule tulpa tulevad lesanded ning paremasse tulpa lesanded
 koos vastustega. šlesannetes olevad arvud peavad j„„ma saja piiresse.
 Programm v„ljastab k„sureal programmi nime j„rel antud arvu kontrollt”id.}