Найдите значение выражения: 1) (13 - 9,5 : 3,8) • 0,3; 3) (1,3 • 2,8 + 1) : 0,8; 2) (16,1 : 4,6 - 3,07) • 0,2; 4) (3,7 • 2,3 - 5) : 0,3.

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.

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