Question

вводится одно целое число не превосходящие 104 подсчитать сумму чисел до 1 и до 104

Answer 1

Var
a,i,n:integer
begin
Readln(a);
for i:=a to 1 do
n:=n+I;
writeln(n);
end.

Answer 2

спасибо