program kontrolltoo; var i, arv, kood: integer; procedure liitmine; {liitmine on lahutamise p””rdtehe} 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(vahe:3,'+',vahendaja:2,'='); write(' ':30); {30 thikut} writeln(vahe:3,'+',vahendaja:2,'=',vahendatav:2); writeln; end; 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; 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; val(ParamStr(1), arv, kood); if kood<>0 then arv:=1; for i:=1 to arv do begin writeln; write(' Variant nr. ',i); write(' ':27); writeln('Variant nr. ',i); writeln; korrutamine; lahutamine; liitmine; jagamine; writeln; writeln; end; end.