Дан алгоритм в виде блок-схемы

Найди A, B,C, D, если изначально: A=3,B=9,C=3,D=18.
ответ: A= B= C= D=

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.

((1+2): 3+4): 5=1

1+2+3-4+5-6=1

(1+2+3+4): 5+6-7=1

(1+2+3-4+5-6+7): 8=1

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n

var n,a,i: real; begin readln(n); i: =1; a: =0; while i< =n do begin a: =a+power(i,3); i: =i+1; end; writeln(a); end.

вот программа