составить программу Pascal:

var r, x:integer;

   y:real;

begin

 write('Введите R, X(a): ');

 readln(r, x);

 y:=sqrt(r*r-x*x);

 writeln('Y = ', y);

end.

PascalABC.NETbegin var (R,X) := ReadReal2('Введите R и X:'); Print('Y =',sqrt(r**2 - x**2)) end.

Пример работы: