var r, x:integer;
y:real;
begin
write('Введите R, X(a): ');
readln(r, x);
y:=sqrt(r*r-x*x);
writeln('Y = ', y);
end.
Пример работы:
