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

1

Ответы и объяснения

2013-11-14T18:19:47+00:00
Var
a,i,n:integer
begin
Readln(a);
for i:=a to 1 do
n:=n+I;
writeln(n);
end.

После типа перременных ";" забыл
спасибо