Паскаль- Найдите угол при основании равнобедренного треугольника, если известен угол при вершине.

спасибо

varx:real;beginWrite('Введите угол при вершине -> ');Readln(x);Writeln('Угол при основании равен ',(180-x)/2)end.Пример:Введите угол при вершине -> 46Угол при основании равен 67

//PascalABC.NET//Версия 3.3, сборка 1611beginwrite('угол при основании: ',(180-ReadReal('введите угол при верш:'))/2);end.