Пожалуйста посчитайте составить программу 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.