// PascalABC.NET 3.1, сборка 1239 от 08.05.2016 begin var p:=BigInteger(1); for var i:=1 to 5 do p*=ReadlnString('Введите число:').ToBigInteger; Writeln('Произведение равно ',p) end.
Тестовое решение Введите число: 54636345465436 Введите число: 3453546454645356 Введите число: 645234545376678457 Введите число: 96776437463 Введите число: 123142325624656998887909978986675622 Произведение равно 1450913554189850838728716778863079022580143228594634478735461839146946566264784968043421600032
begin
var p:=BigInteger(1);
for var i:=1 to 5 do p*=ReadlnString('Введите число:').ToBigInteger;
Writeln('Произведение равно ',p)
end.
Тестовое решение
Введите число: 54636345465436
Введите число: 3453546454645356
Введите число: 645234545376678457
Введите число: 96776437463
Введите число: 123142325624656998887909978986675622
Произведение равно 1450913554189850838728716778863079022580143228594634478735461839146946566264784968043421600032