Даны числа A и В. Вычислить произведение P = (3*A+1*B) · (4*A+2*B) · ...· (53*A+51*B). Решение задачи в Паскале

program A_B;

var A, B: integer;

P: real;

begin

writeln ('Введите числа A и B');

readln (A);

readln (B);

P : = 1;

for i:integer:=1 to 3 do P : = P * ((2 + i) * A + i * B);

writeln (P);

end.

Даже при малых значения переменных A и B получаются большие значения заданного произведения. Для отображения значения переменной p пришлось выбрать тип real.