ro99pg29.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

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.