Ответ:
var a,i: integer;
begin
a:=1;
for i:=1 to 24 div 3 do
a:=a*2;
writeln(3*i,' - ',a);
end;
end.
Результат:
3 - 2
6 - 4
9 - 8
12 - 16
15 - 32
18 - 64
21 - 128
24 - 256