Блок схему пж Program b3; var a, i, p: Integer; begin WriteLn(a); Read(a); p := 3; for i...

Question

Блок схему пж
Program b3;
var a, i, p: Integer;
begin
WriteLn(a);
Read(a);
p := 3;
for i := 1 to 5 do
begin
p := p * a;
WriteLn(p);
end;
end.

Answer 1

Вот держи!!!!!!!!!!!!!!!

---