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

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