Задача по Delphi

[Kukuk]

В данной последовательности чисел найдите подпоследовательность подряд идущих трёх элементов, сумма которых максимальна.
Решить нужно через рекурсию.

[newerow1989]

procedure abc(a,b,c:integer; var a0,b0,c0,sum:integer);
var s:integer;
begin
   s:=a+b+c;
   If sum<s then
   begin
      a0:=a;
      b0:=b;
      c0:=c;
      sum:=s;
   end;
   a:=b;
   b:=c;
   Write('> = '); Readln(c);
   If c<0 then
      Exit;
   abc(a,b,c,a0,b0,c0,sum);
end;

var a,b,c,a0,b0,c0,sum:integer;
begin
   Write('a = '); Readln(a);
   Write('b = '); Readln(b);
   Write('c = '); Readln(c);
   sum:=0;
   abc(a,b,c,a0,b0,c0,sum);
   Writeln(a0,' + ',b0,' + ',c0,' = ',sum);
   Readln;
end.

[Kukuk]

Понравится. Спасибо большое.

[newerow1989]