Задача в Delphi. Объясните смысл!

[Sianessa]

Sazary, удаляю... выдаёт кучу ошибок Т_Т
Щас, поколдую, авось что-то выйдет
Но всё равно спасибо что помогли
На весы вроде нажимала

[Sazary]

Так.. То решение не выполняло условие:

содержащей минимальное число слагаемых.

Исправлено.
Заодно проверил в Делфи. Все работает.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
N : integer;
mins : string;
min : integer;

procedure fun(N : integer; tekS : integer; tekSTR : string; k : integer);
var
S,i : integer;
bstr : string;
begin
 { если сумма больше числа, то слагаемые подобраны неверно }
if tekS>N then
 exit
 { если сумма равна числу, то выводим его }
else if tekS = N then
 begin
 {writeln(tekSTR);  }
 if (k<min) or (min=0) then
  begin
  min := k;
  mins := tekSTR;
  end;
 exit;
 end;
{---}

for i:= trunc(sqrt(N)) downto 1 do
 begin
 S :=tekS+sqr(i);
 if S<=N then  { если текущее значение счетчика в квадрате
  плюс текущая сумма не превышает число, то ... }
  begin
  if tekSTR='' then  { если строка пустая (еще нет первого слагаемого) }
    begin
    Str(i,bstr);
    bstr := bstr + '^2 ';  { кладем туда i^2 }
    end
  else             { иначе добавляем "+i^2 " }
   begin
   Str(i,bstr);
   bstr := tekSTR + '+ ' + bstr +'^2 ';
   end;

   fun(N,S,bstr,k+1);
  end; {for}

 end;


end;
{--------}

begin
readln(N);
min := 0;
mins := '';
fun(N,0,'',0);

writeln;
writeln(mins);

readln;
end.

[Sianessa]

Sazary, эмм у меня типа работает, только пустая консоль почему-о - ничего не пишет Т_Т даже после нажатия Enter-а мож что-то другое нажимать надо?

[Sianessa]

охх, гомен - не сразу дошло, N То вводить надо О_о - тормоз я!
Всё, большое спасибо