нужна Блок-схема... посмотрите

[Настёна_19]

прошу помочь составить блок-схему вот этому алгоритму : Вычислить произведение m членов арифметической прогрессии, если известны значения первого члена a1 и разность арифметической прогрессии h.
вот код программы :

var A, h, i, m, Pro : integer;
begin
writeln('введите первый член прогрессии(A1): ');
Readln(A);
writeln('введите шаг прогрессии (h): ');
Readln(h);
writeln('введите кол-во перемножаемых членов (m): ');
Readln(m);

{собственно вычисление}
Pro := 1;
for i:=1 to m do begin
Pro := Pro * A;
A := A + h;
end;

WriteLn('произведение равно: ',Pro);
Readln;
end.

[Prime123]

А в чём проблема?Программа есть,блок-схема простейшая,вы не знаете как её составить?

[Настёна_19]

нужно за ночь сделать.... заранеее благодарна за помощь!

эммм...делаю задания парню своему... нужно оформить...год назад один семестр учили pascal но знания не на высшем уровне...

помогите пожалуйста с этой весьма простой задачей... безумно необходимо...

[Prime123]

Я мог и подзабыть,но,должно быть так
22122010898.jpg