Var
N:integer;
X,S:real;
Begin
S:=0;
Write('N = ');
Read(N);
Write('X = ');
Read(X);
For N:= 1 to N do
S:=S+power(X,N);
Write('S = ',S)
End.
Var
a: integer;
b, x: byte;
begin
readln(a);
x := a mod 10;
b := a div 1000 mod 10;
writeln(b, ' - ', x, ' = ', b - x);
end.
Решение в прилагаемом файле.