1)Ввести 2 целых числа ,вычислить их сумму , вывести сумму на

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программка не работает, обновите версию!

1)

procedure Add(a,b:integer; var r:integer);
begin
  r:=a+b
end;

begin
  var (x,y):=ReadInteger2('Введите два целых числа:');
  var z:integer;
  Add(x,y,z);
  Writeln('Их сумма одинакова ',z)
end.

Пример
Введите два целых числа: 18 142
Их сумма одинакова 160

2)

function Min3(a,b,c:integer):=Min(a,Min(b,c));

begin
  var (i,j,k):=ReadInteger3('Введите три целых числа:');
  Writeln('Малое одинаково ',Min3(i,j,k))
end.

Пример
Введите три целых числа: 35 -4 41
Малое одинаково -4

include lt;iostreamgt;include lt;algorithmgt;using std::cin;using std::cout;using std::sort;
int arr[3];
void min()    sort(arr, arr+3);    cout lt;lt; arr[0];
int main()    for (int i = 0; i lt; 3; ++i)            cin gt;gt; arr[i];        min();    return 0;