Pascal

Сложите и умножьте два числа: 12 и 60. Чем отличается сумма от произведения? Выпечатайте на экран ещё 4 пары чисел, удовлетворяющих той же закономерности. Составьте программу.

Program first;

var a, b, c, d, i:integer;

begin

a:=12*60;

b:=12+60;

c:=a-b;

writeln ('Сумма отличается от произвидения на', c) ;

i:=1;

while i4 do begin

a:=random (10000) ;

b:=random (10000) ;

d: = (a*b) - (a+b) ;

if d=c then begin

writeln ('Еще удовлетворяют условие числа', a,'и', b) ;

i:=i+1;

end;

end;

end.