Pascal: Проверь себя (решенные задачи, условный оператор if)

Begin 1: Найти расстояние между двумя точками с заданными координатами
(x1, y1) и (x2, y2) на плоскости. Расстояние вычисляется по формуле:

\[ \sqrt {(x2 — x1)^2+(y2 — y1)^2} \]

Begin 2: Дан размер файла в байтах. Используя операцию деления нацело,
найти количество полных килобайтов, которые занимает данный файл.

(1 килобайт = 1024 байта)

Begin 3: Дано двузначное число. Вывести вначале его левую цифру (десятки), а затем — его правую цифру (единицы). Для нахождения десятков использовать операцию деления нацело (div), для нахождения единиц — операцию взятия остатка от деления (mod).

If 1: Даны три числа. Найти сумму двух наибольших из них.

If 2: Написать программу, которая вводит три целых числа в переменные a, b и c, а потом сортирует их так, чтобы в переменной a оказалось наименьшее число, в переменной b – среднее число, а в переменной c – наибольшее число. (Использовать только условный оператор)

If 3: Написать программу, которая вводит три целых числа в переменные a, b и c и находит из них минимальное.

If 4: Даны три числа. Найти сумму двух наибольших из них.

If 5: Даны координаты точки, не лежащей на координатных осях OX и OY. Определить номер координатной четверти, в которой находится данная точка.

If 6: Для данного вещественного x найти значение следующей функции f, принимающей вещественные значения:

Case 1:
Даны два целых числа: D (день) и M (месяц), определяющие правильную дату невисокосного года. Вывести значения D и M для даты, предшествующей указанной