рекурсия. Опции

[ducky]

Во входном файле задана непустая последовательность положительных вещественных чисел, за которой следует отрицательное число. Описать рекурсивную функцию sum без параметров для нахождения суммы этих положительных чисел.

program V_12_11;
function sum:extended;
var num:extended;

begin
 writeln ('vvedite chislo');
 readln;
 if num >=0 then begin
  sum:=num+sum;
 end;
end;


var res:extended;
    s:string;
begin
 repeat
 writeln ('vvedite neskolko neotricatelnih chisel, zaversaja vvod kagdogo chisla klavishej 'Enter'');
 writeln ('dlja zavershenija vvoda vvedite otricatelnoje chislo i nagmite 'Enter'');

 res:=sum;

 writeln ('summa neotricatelnih chisel sledujushich do otricatelnogo chisla: ');
 writeln (res);

 writeln ('povtorit - Enter. vihod - luboj simvol + Enter');
 readln (s);

 until s<>";
end.