Программу надо составить в паскале: составить программу определения вида треугольника по двум углам (прямоугольный, остроугольный, тупоугольный)

Var a,b,c:real;
begin
readln(a);
readln(b);

c:=180 - a - b;

if (a > 90) or (b > 90) or (c > 90) then writeln('Тупоугольный')
 else if (a = 90) or (b = 90) or (c = 90) then writeln('Прямоугольный')
  else  writeln('Остроугольный');

end.