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

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