Запишите на языке паскаль программу которая для произвольного натурального двузначного числа определяет a) сумму и произведение его цифр б) число, образованное перестановкой цифр исходного числа

Var
  n,d,e:integer;
begin
  Write('Введите двухзначное число: '); Read(n);
  d:=n div 10; e:=n mod 10;
  Writeln('Сумма цифр равна ',d+e,', произведение ',d*e);
  Writeln('Число, полученное перестановкой цифр ',10*e+d)
end.

Тестовое решение:
Введите двухзначное число: 29
Сумма цифр равна 11, произведение 18
Число, полученное перестановкой цифр 92

А) 
Program sum_pr;
Var
sum,pr,a1,a2,a : integer;
BEGIN
read(a);
a1:=a div 10;
a2:=a mod 10;
sum:=a1+a2;
pr:=a1*a2;
write(sum,pr);
END.
б)
Program per;
Var
per,a1,a2,a : integer;
BEGIN
read(a);
a1:=a div 10;
a2:=a mod 10;
per:=a2*10+a1;
write(per);
END.

Объяснение:Временные значения денег

В зависимости от точки зрения, номинальное значение денег может быть различным. Ключевое понятие здесь — временное значение денег. Вычисления, производимые над денежными суммами, могут производиться в настоящем или в будущем. Выбор типа вычислений основывается на

том, что сумма денег увеличивается, поскольку постоянно поступают начисления по процентам. Другими словами, вложив

один рубль сегодня, завтра вы получите больше.

Например, предположим, что богатенький заокеанский

дядюшка решил подарить вам деньги, причем нужно выбрать

один из вариантов.

Получить 80 000 руб. сегодня.

Получить 95 000 руб. через год.

Получить 120 000 руб. через пять лет.

Получать 1 500 руб. каждый месяц на протя

Var
  i,n,k:integer;
begin
  Writeln('15 чисел, кратных 19:');
  i:=100;
  while i mod 19<>0 do Inc(i); { первое, кратное 19 }
  Write(i,' ');
  k:=1;
  while k<15 do begin i:=i+19; Write(i,' '); Inc(k) end;
  Writeln
end.

Тестовое решение:
15 чисел, кратных 19:
114 133 152 171 190 209 228 247 266 285 304 323 342 361 380

Задача 2.
var
  m,V,rho,rmax:real;
  i:integer;
begin
  Writeln('Максимальная плотность материала для 30 тел.');
  Writeln('Вводите через пробел массу тела (кг) и объем (куб.см)');
  rmax:=0;
  for i:=1 to 3 do
  begin
    Write(i:2,': '); Read(m,V);
    rho:=m/V;
    if rmax<rho then rmax:=rho
  end;
  Writeln('Максимальная плотность равна ',rmax:0:3)
end.