<span>var a,b,a1,a2:integer;
begin
readln(a);
b:=abs(a);
a1:=b div 10;
a2:=b mod 10;
writeln('S = ',a1+a2,' P = ',a1*a2);
b:=a2*10+a1;
if a>0 then writeln(b) else writeln(-b);
end<span>.
Пример:
25
</span><span>S = 7 P = 10
52</span></span>
Под буквой Б, я это вчера сделал
var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.
Если решение задачи будет не верно, извените значит надо писать более подробно.
Можно реализовать через строки, но вы видимо только начали проходить Паскаль, поэтому такой вариант ;-)