program arsipa;
var i,a:Integer;
begin
a:=10;
for i:= 0 to 4 do
a:=a*2;
WriteLn(a);
end;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program arsipa;
var i,a:Integer;
begin
a:=10;
for i:= 0 to 4 do
begin
a:=a*2;
WriteLn(a);
end;
end.