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

• 9
• 11
• 3
• 0