ro99pg29.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 14 行

program ex99pag29;
var n,i,p:integer;
begin
write('n=');readln(n);
p:=1;
write('p=',p);
for i:= 1 to n do
begin
p:=p*2;
write('p=',p);
end;
readln;
end.