Question

Помогите исправить turbo pascal

Дано два действительных числа X и Y. Определить, принадлежит ли точка с координатам (X,Y) окружности радиусом R. Результат вывести на экран.
program one;
var x,y,R:real;
begin
Writeln('ВВедите x,y,R');
readln(x,y,R);
if sqrt(sqr(x)+sqr(y))<=R
Then writeln('нет');
else writeln('Да');
end.

Answer 1

Then writeln('нет');

уберите в конце строки точку с запятой.

И поменяйте местами да - нет.

Сейчас у Вас "да" означает, что точка лежит вне окружности.