Verified answer

Ответ:

program Calc3;

uses

 Math;

var

 x, y: Real;

begin

 Write ('Введите X: ');

 ReadLn (x);

 y := Sqrt (x) / 2 / x;

 WriteLn ('Sqrt (x) / 2 / x = ', y :15 :5);

 y := Power (x, 5) + Power (x, 3);

 WriteLn ('Power (x, 5) + Power (x, 3) = ', y :15 :5);

 y := Power (x, 7) / 5;

 WriteLn ('Power (x, 7) / 5 = ', y :15 :5);

  ReadLn;

end.