Решить задачи по информатике на уровне знаний 7 класса с помощю PascalABC Дано 2 числа найти модуль разности этих чисел увеличенный в 5 раз

помогите решить задачи по информатике (на уровне знаний 7 класса) с помощю PascalABC1. Дано 2 числа найти модуль разности этих чисел увеличенный в 5 раз.2. Дано 4 значное число поменять местами 1 и 2 цифру местами3. Дан диаметр круга найти его площадь (формула S=п*R). Я примерно знаю как писать но всеровно нуждаюсь в помощиМои мысли:program z1;uses crt;var … : integer;beginдальше всё в тумане

буду рад за решённые 1 или 2 задачи

  • program z1;uses crt;Var a, b, max, m, x: integer;   Begin       Write(‘введите а и б’);       read(a,b);       if a>b then max:=a and m:=b                  else max:=b and m:=a;       x:=max-m;       writeln(‘модель суммы=’, x);end.