Написать программу нахождения произведения чисел от 1 до n.Для паскаль abc
Uses crt; var a,n,i:integer; begin readln(n); a:=1; for i:=1 to n do begin a:=i*a; writeln(i,'.',a); end; writeln('Ответ=',a); end.