Определить значение переменной s после выполнения операторов:
i:=0; s:=0;
while i < 3 do
begin
i:=i+1;
s:s+i*i
end;