Контрольное задание №15-1 / 15-1 / zadanie_1

program Zadanie_1;
var
R,X,Y:real;
begin
writeln ('‚ўҐ¤ЁвҐ а ¤Ёгб ®Єаг¦­®бвЁ');
readln (R);
writeln ('‚ўҐ¤ЁвҐ Є®®а¤Ё­ вл в®зЄЁ (X,Y)');
readln (X,Y);
if sqr(X)+sqr(Y)=sqr(R)
then writeln ('’®зЄ  б Є®®а¤Ё­ в ¬Ё(',X:5:2,';',Y:5:2,')«Ґ¦Ёв ­  ®Єаг¦­®бвЁ б а ¤Ёгᮬ',R:5:2)
else writeln ('’®зЄ  б Є®®а¤Ё­ в ¬Ё(',X:5:2,';',Y:5:2,')­Ґ «Ґ¦Ёв ­  ®Єаг¦­®бвЁ б а ¤Ёгᮬ',R:5:2);
readln ();
end.