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

Question

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

Answer 1

program arsipa;

var i,a:Integer;

begin

a:=10;

for i:= 0 to 4 do

begin

a:=a*2;

WriteLn(a);

end;

end.