С клавиатуры вводятся элементы двумерного целочисленного массива, состоящего из 4 строк и 5 столбцов. Вывести массив в виде матрицы. Найти индекс столбца с минимальной
суммой элементов. Если таких столбцов несколько, то вывести
индексы каждого из них

Задание 4
program months;
{$APPTYPE CONSOLE}
uses  SysUtils;var  i:Integer;begin  Write ('Vvedite nomer mesyaca');  Writeln(i);  Readln(i);
  case i of   1: Writeln ('January-1,2,3,4,5,6,7,8');   2: Writeln ('February-22,23');   3: Writeln ('March-8');   4: Writeln ('April-net');   5: Writeln ('May-1,8,9');   6: Writeln ('June-12');   7: Writeln ('July-net');   8: Writeln ('August-net');   9: Writeln ('September-net');   10:Writeln ('October-net');   11:Writeln ('November-4,5,6');   12:Writeln ('December-net');   end;   Readln
  { TODO -oUser -cConsole Main : Insert code here }end.
Там даты (номера) праздничных дней можете подправить, как вам надо!

1)

var 

a,b,c:real;

begin

readln(a,b);

c:=180-a-b;

if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')

else

if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')

else writeln('остроугольный');

end.

2)

var

v:real;

begin

readln(v);

if v<7.8 then writeln ('ракета упадет на Землю');

if v=7.8 then writeln ('ракета станет спутником Земли');

if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы');
if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы'); 

end.