Определить значение переменной S после выполнения следующих команд:
S:=0; i:=4; while i>2 do begin s:=s+i*i; i:=i-1 end;