Сумма A чисел

Задача с оператором цикла с параметром.
Условие :
Сумма A чисел : S=a+a+...+a+a.
Программа на Pascal

Program summa_a;
Var i,n:integer;
 a,S:real;
Begin
 Writeln('Введите a, N');
 Readln(a,N);
 S:=0;
 for i:=1 to N do
  S:=S+a;
 Writeln('Сумма равна = ',S:0:2);
 Readln;
End.

Таким образом вам может пригодиться следующая Задача на подсчет суммы цифр у числа.
Такие задачи просты и поняты для начинающих программистов на языке Pascal.