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

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

Var
x:real;
begin
Write('Введите угол при вершине -> ');
Readln(x);
Writeln('Угол при основании равен ',(180-x)/2)
end.

Пример:
Введите угол при вершине -> 46
Угол при основании равен 67