Ответ Проверено экспертом Автор - AnonimusPro var i: integer;s: real;beginfor i:=33 downto 1 dos:=sqrt(s+i*3);write(s);end.