A)
var a,sum,p:integer;
<span>begin </span>
<span>writeln('Введите число a'); </span>
<span>read(a); </span>
<span>sum:=a div 10 + a mod 10; </span>
<span>p:=(a div 10) * (a mod 10); </span>
<span>writeln('Сумма цифр числа =',sum); </span>
<span>writeln('Произведение цифр числа =',p); </span>
<span>end.
</span>
б)
var a:integer;
<span>begin </span>
<span>writeln('Введите число a'); </span>
<span>read(a); </span>
<span>a:=(a mod 10)*10+a div 10; </span>
<span>writeln(a); </span>
<span>end.</span>
Значение a подставляешь сюда <span>b:=5+7*a
А потом полученное b сюда -> </span><span>b:=b/2*a
</span>b = 3
Ну раз значения всего 2, то 2 ^ 5 = 32 последовательности.
Program table;
var
f, i: integer;
k: real;
begin
for i := 1 to 20 do
writeln(i, ' (фунт) = ', (i * 0.4):1:3, ' (кг)');
end.