Код:
Writeln('Введите 1-е число');
Readln(a);
For i:=2 To n Do
Begin
Writeln('Введите ',i,'-е число');
Readln(a);
End;
Немного не так, вот так попробуй:
Код:
For i:=1 To n Do
Begin
Writeln('Введите ',i,'-е число');
Readln(a);
if i := 1 then Sum := a
else Sum := Sum * a;
End;