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

Помогите пожалуйста!

спасибо, сейчас попробую ввести

var n,i,s,c:integer;beginreadln(n);for i:=1 to n do   //сколько произвольных чисел будет.beginreadln(c);    //вводим произвольные числаs:=s+c;   //суммируемend;writeln(s);  //Вывод суммыend.