Question

Информатика 9 класс!! Помогите!

Найти произведение всех целых чисел от 1 до a (значение a вводится с клавиатуры).
система PASCAL

Answer 1

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