program kontrolltoo;
var i, arv, kood: integer;


procedure korrutamine;
var tegur1, tegur2, korrutis: integer;
begin
 tegur1:=random(10)+1;
 tegur2:=random(100 div tegur1)+1; {div on jagatise t„isosa}
 korrutis:=tegur1*tegur2;
 write(tegur1:3,'ú',tegur2:2,'=');
 write(' ':30);
 writeln(tegur1:3,'ú',tegur2:2,'=',korrutis:3);
 writeln;
end;

procedure jagamine;     {jagamine on korrutamise p””rdtehe }
var tegur1, tegur2, korrutis: integer;
begin
 tegur1:=random(10)+1; 
 tegur2:=random(100 div tegur1)+1; {div on jagatise t„isosa}
 korrutis:=tegur1*tegur2;
 write(korrutis:3,':',tegur1:2,'=');
 write(' ':30);
 writeln(korrutis:3,':',tegur1:2,'=',tegur2:2);
 writeln;
end;



begin
 randomize;
for i:=1 to 10 do begin
 writeln;
 write('       Variant nr. ',i);
 write(' ':27);
 writeln('Variant nr. ',i);
 writeln;
 korrutamine;
 jagamine;
 korrutamine;
 jagamine;
 writeln;
 writeln;
end;
end.