Пользователь вводит число если оно кратно 3 то разделим на три если нет то прибавим 1 и разделим на 4

var a,b,c,p: integer; begin  writeln('введите a');     readln(a);   writeln('введите b');     readln(b);   writeln('введите c');     readln(c);   if (a< =b+c) and (b< a+c) and (c< =a+b) then      begin            p: =(a+b+c) div 2;             writeln('треугольник может существовать');             writeln('площадь: ', sqrt(p* ((p-a)*(p-b))*((p-: 1: 2);   //формула герона      end  else writeln('не треугольник');   readln(); end.

program massiv;

uses crt;

var i,j: integer;

        a: array[1..6,1..6] of integer;

begin

      clrscr;

      randomize;

      for i: =1 to 6 do            begin                for j: =1 to 6 do                    begin                        a[i,j]: =random(101)-50;                   end;         end;

 

  for i: =1 to 6 do      begin        for j: =1 to 6 do            begin              write(a[i,j]: 3);             end;   writeln; end;

 

readkey;

end.