Сократите эту программу
program sr;
var
a, b, c : real;
y, x, xb, xc : real;
na, nb, nc: integer;
function stup (x: real; n: integer) : real;
var
i: integer;
k: real;
begin
k:=1;
for i : = 1 to n do
k : = k * x;
stup : = k;
end;
begin
writeln ('Введите x (число должно быть положительным') ; readln (x) ;
if x > = 0 then begin
na : = 6;
nb : = 3;
nc : = 5;
xb : = x-5;
xc : = 2*x+1;
a : = stup (x, na) ;
b : = stup (xb, nb) ;
c : = stup (xc, nc) ;
y : = (a*b) / c;
Writeln ('y=', y:5:2) ;
end;
end.
