Дан отрывок программки.Найти чему будет одинаково значение переменных в течение цикла

Дан отрывок программки.Найти чему будет равно значение переменных в течение цикла и после его выполнения если с клавиатуры ввели число n = 4

S:=0;
D:=3;
i:=0;
read(n);
Repeat
S:d+n/2+S
n:=n+2;
i=i+1;
until ngt;=10;
Writeln(i,n,S)