Помогите с заданием на pascal

Разделить число m на такие две части, разность
которых есть, Найти координаты четвёртой вершины прямоугольника,
если даны координаты трёх его вершин,
Пусть k целое
от 1 до 365. Присвоить переменной n
значение 0, 1, 2, ..6 в зависимости от того на какой день недели попадает k-ый день невисокосного года, в котором
1 января – понедельник. (1 – понедельник, 2 – вторник, ..0 – воскресенье).