Вторая лаба (норм)

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  nmax = 255;

var
  i, n, counter: Byte;
  p: Real;
  a: array[1..nmax] of Real;
  b: array[1..nmax] of Real;
  c: array[1..nmax] of Real;

begin
  { ввод исходных данных }
  write('Enter number of triples: ');
  readln(n);

  if n = 0 then
    writeln('Cannot input 0 triples! ')

  else begin
    for i := 1 to n do
    begin
      writeln('i = ', i);
      write('Ai: ');
      readln(a[i]);
      write('Bi: ');
      readln(b[i]);
      write('Ci: ');
      readln(c[i]);
    end;

    { вывод исходных данных }
    writeln('Number of triples: ', n);
    for i := 1 to n do
      writeln(i:2, '. ', a[i]:5:1, ' - ', b[i]:5:1, ' - ', c[i]:5:1);

    { решение задачи }
    counter := 0;
    p := 0;

    for i := 1 to n do
      if (a[i] + b[i] > c[i]) and (b[i] + c[i] > a[i]) and (c[i] + a[i] > b[i]) then
      begin
        writeln('i = ', i, ': Ai..Bi..Ci is a possible triangle!');
        counter := counter + 1;
        p := p + a[i] + b[i] + c[i];
      end;

    { вывод результатов }
    writeln('Number of possible triangles: ', counter:3);
    writeln('Total perimeter: ', p:5:1);

    writeln('Press [Enter] to quit...');
    readln;
  end;
end.