Дано несколько чисел. вычислите их сумму. сначала вводите количество чисел n, затем вводится ровно n целых чисел.

uses crt;
var a,n,s:integer;
begin
clrscr;
write('Введите количество чисел: '); read(n);
writeln('Введите числа:');
for n:=1 to n do
begin
read(a);
s:=s+a;
end;
write('Сумма введенных чисел: ',s);
end.

Смотря для какого тебе языка надо, вот для VisualBasic

Sub Neskolko_Chisel

Dim Sum, i, a, N As Integer

N = InputBox("Введите количество чисел")

For i = 1 to N

a = InputBox("Введите число")

Sum = Sum + a

Next i

End Sub

вот для с++

#include <iostream>
#include <conio.h>
using namespace std;

int main()
{
setlocale(LC_ALL, "Russian");

int a, N, Sum, i;
Sum = 0;
N = 0;
a= 0;
cout << "Введите количество чисел! ";
cin >> N;

for (i = 1; i <= N; i++)
{
cout << "Введите число!" ;
cin >> a;
Sum = Sum + a;
}
cout << Sum;

_getch();
}