Составьте программу , печатающую произведение натуральных чисел x€[1,5]

Question

Составьте программу , печатающую произведение натуральных чисел x€[1,5]

Answer 1

Var
multi: integer := 1;
index: integer;
begin
for index := 1 to 5 do multi *= index;
write(multi);
end.