Это сложно.
Но можно решить.
Через 5 мин отвечу.
Ну всё пока
Var n,i,s,c:integer;
begin
readln(n);
for i:=1 to n do //сколько произвольных чисел будет.
begin
readln(c); //вводим произвольные числа
s:=s+c; //суммируем
end;
writeln(s); //Вывод суммы
<span>end.</span>
Function pr(a, b:integer):integer; var tmp:integer;begin if b = 1 then pr := a else begin tmp := pr(a, b shr 1); inc(tmp, tmp); if b and 1 = 1 then inc(tmp, a); pr := tmp; end;<span>end; рекурсивная ф-ия, алгоритм работает гораздо быстрее лобового складывания (хоть с большими числами). Процедура пишется аналогично. (если не допрешь - скажи, сделаю)</span>
Var a, n :integer;
begin
writeln('a=');
readln(a);
n:=a mod 10;
writeln (n);
readln;
<span>end.</span>