1. Составьте программу к задаче: «На яблоне было х яблок. В первый день с яблони упало а яблок. Каждый следующий день опадало в 2 раза больше яблок, чем в предыдущий. Сколько яблок останется через k дней?».

паскаль:#################################################################varx, k, a, i: integer;beginwriteln('Введите количество яблок');readln(x);writeln('Введите количество дней');readln(k);writeln('Введите количество яблок, которое упало в 1 день');readln(a);for i:=1 to k do beginx:=x-a;a:=a*2;end;writeln(inttostr(x));sleep(3000);end.