1 вариант. Напишите программу, которая вычисляет произведение первых n натуральных чисел

var n,i:integer; p:real;beginwrite('n='); readln(n);p:=1;for i:=1 to n do p:=p*i;writeln('p=',p);end.Пример:n=10p=3628800