Информатика

Германик

9 сентября, 04:00

Где ошибка?

Задание: Написать на Паскале программу, которая запрашивает с клавиатуры N произвольных целых чисел и ищет их сумму. Число N вводится с клавиатуры. Разработать для созданной программы не менее трёх тестов и проверить на них правильность работы алгоритма.

Я написала так:

uses crt;

var n, i, s, c:integer;

begin

clrscr;

readln (n) ;

s:=0;

for i:=1 to n do

begin

readln (c) ;

s:=s+c;

end;

writeln (s) ;

readkey;

end.

Где здесь допущена ошибка? Помогите!