Алгоритм

[strannik23]

Как будет правильно нарисовать алгоритм?
program pr2;

function dummy(const x: Double; const n: Integer): Double;
var
c, Result: Double;
Index: Integer;
begin
Result:= 0.0;
c:= cos(x);
for Index:= 0 to n - 1 do
begin
Result:= Result + c;
c:= cos(c);
end;

dummy:= Result;
end;


var
x: Double;
n: Integer;

begin
write('Vvedite x: ');
readln(x);
Write('Vvedite n: ');
ReadLn(n);

writeln('summa = ',dummy(x, n));
readln;
end.