program vorrand;
var i,a,b,variant,c,n:integer;
x:real;
begin
for variant:=1 to 5 do 
 begin   
 writeln('Variant nr.',variant,'                                ' ,'Vastused');
 randomize;
  for i:=0 to 1 do
   begin
 a:=random(50)+1;
 b:=random(50)+1;
 c:=random(50)+1;
 n:=a*b;  
writeln(a:2,'x+',b:2,'=',c:2,' ':30,'x=',((c-b)/a):4:2);
writeln;
writeln(a:2,'x-',b:2,'=',c:2,' ':30,'x=',((b+c)/a):4:2);
writeln;
writeln(a:2,'x=',(b*a):4,' ':31,'x=',b:2);
writeln;
writeln(n:4,'x:',a:2,'=',b*c:4,' ':26,'x=',c:2); 
writeln; 
writeln;                 
end;
writeln;
end;
end.