Question

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

Answer 1

Var
  a,b,c,y,x,:real;

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
    a:=stup(x,6); b:=stup(x-5,3); c:=stup(2*x+1,5);
    y:=(a*b)/c;
    Writeln ('y=',y:5:2);
    end
end.