program kontroll;
var
a,b,i,n,m,j,k:integer;
c:real;
begin
        writeln('Kontrolli kuidas sa saad jagada ja lahutada!');
   randomize;
      for i:=1 to 5 do begin
        writeln;
        write('       Variant nr.',i,'  ':30);
        writeln('Variant nr. ',i); writeln;    
     for j:=1 to 5 do
        begin
           a:=random(99)+1;
           b:=random(99)+1;
           n:=a*b;
           writeln('Jagamine');writeln;
           write(n:4,'/',b:2,'=', ' ':30);
           writeln(n:4,'/',b:2,'=',a);
        end;
     for k:=1 to 5 do 
    begin
       a:=random(99)+1;
       b:=random(99)+1;
       m:=a+b;
       writeln('Lahutamine');writeln;
       write(m:4,'-',b:2,'=', ' ':30);
       writeln(m:4,'-',b:2,'=',a);
     end;
   end;
end.