Помоги мне решать это, кто ответил спасибо большоое) Найти значение переменной

Помоги мне решать это, кто ответил спасибо большоое) Найти значение переменной XX после исполненья последующей программы
Programm AA;
var
xx, i, j, k :integer;
begin
xx:=0;
for i:= 1 to 2 do
for J:=1 to i+1 do
for k:=1 to j+1 do xx:=xx+1