Найдите произведение 5 целых чисел паскаль

// 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