Блок схему пж
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.