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

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