Программа для задач 1:

program SumAndProduct;
var
i, sum, product: integer;
begin
sum := 0;
product := 1;
for i := 1 to 10 do
begin
sum := sum + i;
product := product * i;
end;
writeln${}^{\prime }Суммарядаот1до10{:}^{\prime },sum$;
writeln${}^{\prime }Произведениерядаот1до10{:}^{\prime },product$;
end.

Программа для задачи 2:

program PowerOfTwo;
var
n, result: integer;
begin
writeln${}^{\prime }Введитенатуральноечислоn{:}^{\prime }$;
readln$n$;
result := 1;
for i := 1 to n do
begin
result := result * 2;
end;
writeln${}^{\prime }2{в}^{\prime },n{,}^{\prime }степени{=}^{\prime },result$;
end.

Программа для задачи 3:

program SumOfDigits;
var
n, sum, digit: integer;
begin
writeln${}^{\prime }Введитенатуральноечислоn{:}^{\prime }$;
readln$n$;
sum := 0;
while n > 0 do
begin
digit := n mod 10;
sum := sum + digit;
n := n div 10;
end;
writeln${}^{\prime }Суммацифрчисл{а}^{\prime },n{,}^{\prime }{=}^{\prime },sum$;
end.