2. Как вы помнимаете понятие средства связи? Выучите ключивые слова

Program Dafnochka;
uses crt;
type
  TypeD=set  of 0..10;
var
  dr,d1,d2,d3:TypeD;
  c:integer;
begin
  d1:=[2,4,6,8];
  d2:=[0,1,2,3,5];
  d3:=[1,3,5,7,9];
{вывод множеств}
  writeln('Множество D1:');
  for c:=0 to 10 do
    if c in d1 then
      write (' ',c,' ');
  writeln();
  writeln();     
  writeln('Множество D2:');
  for c:=0 to 10 do
    if c in d2 then
      write (' ',c,' ');
  writeln();
  writeln();   
  writeln('Множество D3:');
  for c:=0 to 10 do
    if c in d3 then
      write (' ',c,' ');
  writeln();   
  writeln();  
{примеры}
  dr:=d1+d2;    
  writeln('Пример 1 - объединение множеств D1 U D2');
  for c:=0 to 10 do
    if c in dr then
      write (' ',c,' ');
  writeln();   
  dr:=d2-d3;  
  writeln();   
  writeln('Пример 2 - разность множеств D2\D3');
  for c:=0 to 10 do
    if c in dr then
      write (' ',c,' ');
  writeln();   
  dr:=d2*d3;   
  writeln();    
  writeln('Пример 3 - пересечение множеств D2 П D3');
  for c:=0 to 10 do
    if c in dr then
      write (' ',c,' ');
  writeln();   
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();
}