Программа проверяющая выполняется ли условие существования треугольника — Pascal(Паскаль)

uses crt;

var
  a, b, c: integer;
  p, s: real;

begin
  clrscr;
  writeln('Введите длины сторон тр-ка (a,b,c)');
  readln(a);
  readln(b);
  readln(c);
  p := a + b + c;
  s := sqr(p / 2 * (p / 2 - a) * (p / 2 - b) * (p / 2 - c));
  if (a + b > c) and (a + c > b) and (c + b > a) then
  begin
    writeln('Периметр - ', p);
    writeln('Площадь - ', s);
  end
  else
    writeln('Треугольник не существует');

end.