Код
var
count : Integer;
i : byte;
number : uint64;
N : Integer;
begin
number := 1;
Readln(count);
for i:=1 to count do
begin
Readln(N);
number := number * N;
end;
Assign(output, 'output.txt' ) ;
Rewrite(output);
Writeln(output, number);
end.
Программа должна получить ввод 1. Количества чисел 2. Сами числа 3. Умножить их и вывести ответ в текстовый файл output.txt
Условие - программа должна выполнятся быстрее 1 секунды. Железо нормальное, а выполнение занимает от 1.000 до 1.008 сек.
Помогите ускорить.
