Информатика 9 ! найти произведение всех целых чисел от 1 до a (значение a вводится с клавиатуры). система pascal

var i,a,s:integer;
begin readln(a);
s:=1;
for i:=1 to a do s:=s*i;
writeln(s);
end.