Добрый вечер! , , написать программу факториал с цикла for i=1 to n do

Program z1;
var s,n,i:integer;
begin
write('Введите число n:');
readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
write(s);
end.