Вычислить: S=1-1/2+1/4-1/8+...+(-1)n*1/(2^n) - Pascal ABC

Формулировка задачи:

1) Составить алгоритм и программу, позволяющую решить следующую задачу. Дано натуральное число N. Вычислить: S=1-1/2+1/4-1/8+...+(-1)n*1/2n (n это степень) 2)Составить алгоритм и программу позволяющую решить следующую задачу. Для заданного Х вычислить значение А по формулам: А= х+1, если х<0 2х, если 0< равно х<10 0, если х> равно 10

Решение задачи: «Вычислить: S=1-1/2+1/4-1/8+...+(-1)n*1/(2^n)»

Листинг программы

uses crt;
var a,x: integer;
begin
write('x=');
readln(x);
if x<0 then a:=x+1 else
   if x>=10 then a:=0 else
      a:=2*x;
writeln('A=',a);
end.

Объяснение кода листинга программы

Импортируется модуль CRT (используется для ввода/вывода данных).
Объявляются две переменные типа integer: a и x.
Вводится значение переменной x с помощью функции readln().
Переменная a инициализируется значением x, если x меньше нуля.
Если x больше или равно 10, то a устанавливается равной 0.
Иначе a устанавливается равной удвоенному значению x.
Выводится значение переменной a с помощью функции writeln().
Код завершается.