Даны числа a и в. вычислить произведение p = (3*a+1*b)·(4*a+2*b)· …· (53*a+51*b). решение в паскале

var a,b,ml,i:longint;
begin
readln(a);
readln(b);
ml:=1;
for i:=1 to 51 do begin
     ml:=ml*((i+2)*a+i*b);
     // можно тут добавить чтобы увидеть writeln(ml);
end;
writeln(ml);
end.

ну код будет выглядеть примерно так, но вместо обычного умножения должно быть длинное. Даже для маленьких значений не работает тк выходит за ограничения на логинт