Question

Определить значение переменной S после выполнения следующих команд:
var i,S: integer;
begin
i:=0;
S:=0;
while i<3 do
i:=i+1;
S:=S+i*i;
writeln(S);
end.