DlowPro

Ответ:

var r, x:integer;

   y:real;

begin

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

 readln(r, x);

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

 writeln('Y = ', y);

end.

LRSM

PascalABC.NET

Ответ:

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

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