Дан треугольник a,b,c. Составить программу определения типов углов m,n,p (прямой, тупой, острый) лежащие против этих сторон — Pascal(Паскаль)

uses crt;
const t=0.00001;
var a,b,c,pp,m,n,p:real;
begin
clrscr;
repeat
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if (abs(a-b)>c)or(abs(a+b)<c)
then writeln('Это не треугольник! Повторите ввод.');
until (abs(a-b)<c) and( abs(a+b)>c);
pp:=(a+b+c)/2;
writeln('Вид углов:');
m:=(b*b+c*c-a*a)/(2*b*c);
if abs(m)<t then writeln('Угол М прямой')
else if m>0 then writeln('Угол М острый')
else writeln('Угол М тупой');
n:=(a*a+c*c-b*b)/(2*a*c);
if abs(n)<t then writeln('Угол N прямой')
else if n>0 then writeln('Угол N острый')
else writeln('Угол N тупой');
p:=(b*b+a*a-c*c)/(2*b*a);
if abs(p)<t then writeln('Угол P прямой')
else if p>0 then writeln('Угол P острый')
else writeln('Угол P тупой');
readln
end.