46. составить программу, которая проверяла бы, не приводит ли суммирование двух целых чисел а и в к переполнению (т.е. к результату большему чем 32 767 если будет переполнение, то сообщить об этом, иначе вывести сумму этих чисел. через дельфи

Program Name;
uses crt;
Var
a, b, s :integer;
Begin
Write('введите a ');
readln(a);
Write('введите b ');
readln(b);
S:=a+b;
if s<32767 then
writeln(s)
else
writeln('произошло переполнение');
End.

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

begin
  var x:=-5.0;
  Writeln('  x       x*x');
  repeat
    Writeln(x:4:1,x*x:10:2);
    x+=0.5
  until x>5
end.

Результат
  x       x*x
-5.0     25.00
-4.5     20.25
-4.0     16.00
-3.5     12.25
-3.0      9.00
-2.5      6.25
-2.0      4.00
-1.5      2.25
-1.0      1.00
-0.5      0.25
 0.0      0.00
 0.5      0.25
 1.0      1.00
 1.5      2.25
 2.0      4.00
 2.5      6.25
 3.0      9.00
 3.5     12.25
 4.0     16.00
 4.5     20.25
 5.0     25.00

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

begin
  var a:=ArrRandom(12,0,50); a.Println;
  var m:=a.Average;
  Write('Элементы, меньшие среднего значения: ');
  Writeln('Таких элементов ',a.Where(x->x<m).Println.Count)
end.

Пример
34 12 5 35 29 15 23 22 41 27 12 36
Элементы, меньшие среднего значения: 12 5 15 23 22 12
Таких элементов 6

begin
  var a:=ArrRandom(13,0,100); a.Println;
  Write('Элементы, меньшие 50: ');
  Writeln('Таких элементов ',a.Where(x->x<50).Println.Count)
end.

Пример
25 17 68 71 27 37 83 32 63 87 29 12 34
Элементы, меньшие 50: 25 17 27 37 32 29 12 34
Таких элементов 8