PascalСложите и умножьте два числа: 12 и 60. Чем отличается сумма от произведения?…

Program first; var a,b,c,d,i: integer; begina: =12*60; b: =12+60; c: =a-b; writeln ('Сумма отличается от произвидения на',c); i: =1; while i<>4 do begina: =random (10000); b: =random (10000); d: =(a*b) — (a+b); if d=c then begin writeln ('Еще удовлетворяют условие числа',a,'и',b); i: =i+1; end; end; end.