Не работает цыкл Опции

[FYzeST]

Подскажите что не так?? цыкл взят из книги Фаронова. Он должен считать суму от 1 до N но почему то при исполнении выводит тоже число что задаю в N

var
i, n, s : integer;
begin
write('N=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+1;
writeln('summa=',s);
readln
end.

М

Тэги!!

Сообщение отредактировано: Lapp - 24.06.2011 22:02

[TarasBer]

Потому что:
1. "цикл" пишется через "и", а не через "ы".
2. "s:=s+i" пишется через "i", а не через "1".

Сообщение отредактировано: TarasBer - 24.06.2011 13:14