Спо информатике (последовательность n 2 значение чисел вывести максимальное чётное число)

//PascalABC.NET 3.2 сборка 1318

Var
  n,i,j,resi,resj,flag:integer;
begin
flag:=0;
i:=1;
readln(n);
while power(i,3)<n do
  begin
    j:=1;
    while power(j,3)+power(i,3)<=n do
      begin
        if power(j,3)+power(i,3)=n then
        begin
          flag:=1;
          resi:=i;
          resj:=j;
          break;
        end;
        inc(j);
      end;
    if flag=1 then break;
    inc(i);
  end;
if flag=1 then writeln(resi,' ',resj,' ',resj,' ',resi) else writeln('impossible');
end.

Пример ввода:
1008                           //2^3+10^3
Пример вывода:
2 10 10 2

ответ:

объяснение:

static void main(string[] args)

        {

            double a, b, c, d, sum;

            double sum1;

            console.writeline("введите a");

            a = convert.todouble(console.;

            console.writeline("введите b");

            b = convert.todouble(console.;

            console.writeline("введите c");

            c = convert.todouble(console.;

            console.writeline("введите d");

            d = convert.todouble(console.;

            sum = math.sqrt(math.pow(a - b, 2));

            sum1= math.sqrt(math.pow(c - d, 2));

            console.writeline("расстояние между точками а и в=" + " " + sum);

            console.writeline("расстояние между точками c и d=" + " " + sum1);

            console.readkey();

        }

    }

}