Створить новий текстовий документ та додайте до нього формулу та математична вирази за до редактора формул

program raf105;

const

 n = 10;

var

 x: array[1..n] of integer;

 i: integer;

 a,b,c: boolean;

begin

 a:= True;

 writeln('Заполните массив из ',n,' чисел');

 for i:=1 to n do

 begin

   readln(x[i]);

   a:= (x[i] = 0) and a;

   b:= ( not(c) and (x[i] > 0) ) or b;

   c:= ( not(b) and (x[i] < 0) ) or c;

 end;

 if a

   then writeln('Все числа равны нулю');

 if b

   then writeln('Первое ненулевое число - положительное');

 if c

   then writeln('Первое ненулевое число - отрицательное');

end.

PascalABC 3.4.2

Const
  n=10;
var
  a,b:array[1..n] of integer;
  i,si,smax:integer;
begin
  Writeln('Введите парами длины катетов ',n,' треугольников');
  smax:=0;
  for i:=1 to n do begin
    Read(a[i],b[i]);
    si:=a[i]*b[i]; { пополам разделим потом максимальное }
    if si>smax then smax:=si
    end;
  Writeln('Треугольник(и) с максимальной площадью, равной ',smax/2,':');
  for i:=1 to n do
    if a[i]*b[i]=smax then Writeln('№',i,': ',a[i],'x',b[i]);
  Writeln
end.

Пример работы
Введите парами длины катетов 10 треугольников
7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8
Треугольник(и) с максимальной площадью, равной 90:
№2: 18x10
№6: 15x12
№8: 9x20