Помогите решить задачи по информатике (** уровне знаний 7 класса) с помощю PascalABC1....

Question

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

Answer 1

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.