придумать 3 задачки которые можно решить с помощью компьютера ( Паскаля)

1)На координатной прямой отмечены три различные точки с координатами x1, x2, x3 соответственно. Улитка проползла из первой точки во вторую, потом из 2-ой точки в третью и затем из третьей точки возвратилась в первую. Выведите суммарную длину пути улитки.
Пример:
Входные данные: 1 2 3
Выходные: 4
Входные:0 -3 -6
Выходные: 12
(
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программка не работает, обновите версию!

Begin
var (a,b,c) := ReadInteger3('Введите a,b,c');
Writeln(абс(a-b)+абс(b-c)+абс(a-c));
end.
)
2.1) В Берляндии наступили томные времена: инфляция и понижение курса бурля не дают гражданам покоя. Каждый обитатель Берляндии, в том числи и Бабушка Нюра, имеет так называемый "заключительный патрон"(заначка), который гарантированно сумеет покрыть все расходы на этот месяц. Знаменито, что на данный момент у  Бабы Нюры есть M бурлей наличными и K фунтликов в Берляндском банке. Курс размена 1 фунтлик = Z бурлей. Неотклонимые расходы Бабы нюры сочиняют G бурлей на продовольственные продукты и U бурлей на оплату комунальных услуг. На Ваши плечи ложится задачка: найти,  понадобится ли Бабе Нюре этот самый "последний патрон", в случае если он пригодится вывести "ДА", в неприятном - "НЕТ".
В единственной строке ввода содержатся M,K, Z, G, и U
В единственной строке вывода должно содержаться 1 слово "ДА" либо "НЕТ"
Входные:150 5 35 100 10
Выходные: НЕТ
Входные: 150 5 40 100 100
Входные: Да
(согласен, много излишней инфы, но в том и прикол. Больше абсурда - превосходнее задачка)
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

Begin
var (M,K,Z) := readInteger3;
var (G,U) :=readInteger2;
if (M lt; G + U)then Writeln('ДА')else Writeln('НЕТ');
end.
2.2)(Если задачка выше очень "нездоровая")
Сейчас Вася получил своё семейное задание по информатике. Оно состоит из трёх задач с номерами a, b и c. Вася согласен их решать только если производятся условия a + b = c или a * b = c, но не оба условия сразу. Однако проверка данного аспекта оказалась ему не по мощам и он обратился за подмогою к для вас. Напишите программку, проверяющую будет ли Вася решать семейнее задание либо нет.
В единственной строке выведите единственное целое число: 1 если Васе придётся делать семейнее задание и 0 в неприятном случае.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

Begin
var (a,b,c) := readInteger3;
if (a + b = c) xor (a*b = c) then
Writeln(1) else
Writeln(0);
end.
3)
Вывести K раз фразу "Привет, сосед". 0 lt; K lt; 100000
 // PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программка не работает, обновите версию!

Begin
For var i:= 1 to readInteger do
Writeln('Привет, сосед');
end.