Пусть даны три числа. Если они могут быть длинами сторон треугольника, определите его вид (прямоугольный, тупоугольный, остроугольный). Вычислите его периметр и площадь — Pascal(Паскаль)

program Paul_Oakenfold;
uses crt;
var
 a,b,c,k1,k2,g:integer;
 i:integer;
 p:integer; // perimetr
 pp:double; // poluperimetr
 
begin
 clrscr;
 write('Vvedite storonu a: '); readln(a);
 write('Vvedite storonu b: '); readln(b);
 write('Vvedite storonu c: '); readln(c);
 if (a+b>c) and (a+c>b) and (b+c>a) then begin
    g:=a; k1:=b; k2:=c;
    if g<b then begin
       g:=b; k1:=a; k2:=c;
    end;
    if g<c then begin
        g:=c; k1:=b; k2:=a;
    end;
    if sqr(g)>(sqr(k1)+sqr(k2)) then writeln('Treugolnik tupougolnii') else
    if sqr(g)<(sqr(k1)+sqr(k2)) then writeln('Treugolnik ostrougolnii') else
       writeln('Treugolnik pramougolnii');
 
    p := a + b + c;
    writeln('Perimetr: ', p);
 
    pp := p / 2;
    writeln('Ploshad': ', Sqrt(pp*(pp - a)*(pp - b)*(pp - c)));

 end else writeln('Treugolnik nesushestvuet');
 readkey;
end.
0