Написать программу, которая выводит на экран: 20 40 80 160 320
С циклом for

program arsipa;

var i,a:Integer;

begin

a:=10;

for i:= 0 to 4 do

begin

a:=a*2;

WriteLn(a);

end;

end.