Напишите пожалуйста программку паскаль (подробно)По знаменитым углам Определите вид

Держи
var a,b,c: real;
begin
writeln ('Введите углы искаемого треугольника');
readln (a,b,c);
IF a+b+c=180 then
begin
if (alt;90) and (blt;90) and (clt;90) then
writeln ('Треугольник является остроугольным ')
else
if (a=90) OR (b=90) OR (c=90) then
writeln('Треугольник является прямоугольным')
else
if (agt;90) or (bgt;90) or (cgt;90) then 
writeln ('Треугольник является тупоугольным')
end
else
writeln ('Треугольника не существует');
readln
end.