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