Помогите с информатикой, пожалуйста. Это задание для 9 класса. Срочно понадобилось, а я не могу вспомнить как это делается.
Пожалуйста, напишите решение подробно

Спасибо вам большое!!!!!!!!!!!!!!

Решение первого задания:var  a, aa, c: integer;begin  writeln('Введите число, которое необходимо перевернуть.');  readln(a);  write('Перевёрнутое число выглядит так: ');  while (a <> 0) do   begin    aa := a mod 10;    write(aa);    a := a div 10;  end;end.Решение третьего задания:var  a, b, c, p, pp, s: real;begin  writeln('Введите значения длин сторон треугольника через пробел:');  readln(a, b, c);  p := a + b + c;  pp := p / 2;  s := pp * (pp - a) * (pp - b) * (pp - c);  s := sqrt(s);  writeln('Периметр треугольника равен ', p, ', его площадь равна ', s);end.Решение четвёртого задания:var  a, aa, c, sum, p: integer;begin  sum := 0;  p := 1;  writeln('Введите число.');  readln(a);  while (a <> 0) do  begin    aa := a mod 10;    sum := aa + sum;    p := aa * p;    a := a div 10;  end;  writeln('Сумма цифр этого числа: ', sum, ', а произведение цифр этого числа: ', p);end.