Разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов

const a=1.45;
var y, x : real;
    k, n: integer;
begin
x:=1;
while x<=1.8 do
 begin
  if a<=x then
   begin
    for k:=1 to 10 do
    y:=exp(k*ln(a))*exp(k*ln(x));
   end;
  x:=x+0.1;
  if (a>x) then
  begin
  for n:=1 to 8 do
  y:=exp(n*ln(a))-exp(n*ln(x));
  end;
  x:=x+1;
  write('Значение у по условиям равно: '+y)
 end;
end.

const a=1.45;
var y, x : real;
    k, n: integer;
begin
x:=1;
while x<=1.8 do
begin
if a<=x then
for k:=1 to 10 do
y:=exp(k*ln(a))*exp(k*ln(x));
k:=k+1;
if (a>x) then 
for n:=1 to 8 do
y:=exp(k*ln(a))-exp(k*ln(x));
n:=n+1;
x:=x+0.1;
writeln(y)
end;
end.

k:=k+1;

n:=n+1;

y:=exp(k*ln(a))*exp(k*ln(x));

y:=power(a,k)*power(x,k);

  x:=1;
  while x<=1.85 do begin
    { ... }
    x:=x+0.1;
  end;

    if a<=x then
      { сумма }
    else
      { произведение };

  y:=0; for k:=1 to 10 do y:=y+...;

  y:=1; for k:=1 to 10 do y:=y*...;

  ta:=1; tx:=1;
  for ...
    ta:=ta*a; tx:=tx*x; { очередная степень }
    ...

const a=1.45;
var y,ta,tx,x : real;
k : integer;
 
begin
x:=1;
  while x<=1.85 do begin
     if a<=x then
    y:=0;
    ta:=1;
    tx:=1;
    for k:=1 to 10 do y:=y+;
     
     y:=1;
     for k:=1 to 10 do y:=y*;
      ta:=ta*a; tx:=tx*x;
 
    x:=x+0.1;
    writeln(y)
  end;
  end.

power(число, степень);