Найти координаты точки пересечения окружности - Pascal ABC

Формулировка задачи:

Здравствуйте. Нужно написать программу на паскале. Заданы координаты центра окружности, ее радиус и значение некоторого угла. Найти координаты точки пересечения окружности и луча, исходящие из ее центра под заданным углом. Заранее спасибо.

Решение задачи: «Найти координаты точки пересечения окружности»

Листинг программы

var r,x0,y0,u,x,y:real;
begin
repeat
write('Радиус окружности r=');
readln(r);
until r>0;
writeln('Введите координаты центра окружности');
readln(x0,y0);
repeat
write('Введите угол от 0 до 360 градусов u=');
readln(u);
until(u>=0)and(u<=360);
u:=u*pi/180;
x:=x0+r*cos(u);
y:=y0+r*sin(u);
write('x=',x:0:2,'  y=',y:0:2)
end.

Объяснение кода листинга программы

Создается переменная r, которая представляет собой радиус окружности и устанавливается в значение, введенное пользователем.
Создаются переменные x0 и y0, которые представляют собой координаты центра окружности и устанавливаются в значение, введенное пользователем.
Создается переменная u, которая представляет собой угол от 0 до 360 градусов и устанавливается в значение, введенное пользователем.
Выполняется цикл repeat, пока значение переменной u больше или равно нулю и меньше или равно 360 градусам.
Внутри цикла repeat выполняется чтение значения переменной u из входного потока.
Вычисляется значение переменной x как сумма координат центра окружности x0 и y0 и радиуса окружности r, умноженного на косинус угла u.
Вычисляется значение переменной y как сумма координат центра окружности x0 и y0 и радиуса окружности r, умноженного на синус угла u.
Выводится значение переменной x и y с точностью до двух знаков после запятой.
Выполняется цикл repeat, пока значение переменной u больше или равно нулю и меньше или равно 360 градусам.
По завершении цикла repeat, переменная u устанавливается в значение, введенное пользователем.