program Example;var x: Integer; y: Integer;begin y := 0; for x := 1 to 9 do begin y := y * 2 + 3; end; Writeln('Результат y: ', y);end.
Ответ: Программа на Паскале и блок-схема представлены выше.