сократите эту программу
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.