Вывести 15 первых чисел так, чтобы каждое последующее было в 2 раза больше предыдущего. Есть пример кода, но нужно сделать его с ПОСТУСЛОВИЕМ.
если можно - то со схемой, не понял немного что такое постусловие
program d;
var i,a:Integer;
begin
a:=1;
for i:=1 to 20 do
begin
a:=a*2;
writeln(a);
end;
end.
20 замени на 15 и writeln(a); удали там где стоит и напиши после первого end