Ребята с информатикой! Напишите на языке Паскаль программу нахождения периметра прямоугольника , зная координаты вершин, использую подпрограмму функция

В настоящее время под компьютерной моделью чаще всего понимают:

условный образ объекта или некоторой системы объектов (или процессов), описанный с взаимосвязанных компьютерных таблиц, блок-схем, диаграмм, графиков, рисунков, анимационных фрагментов, гипертекстов и т. д. и отображающий структуру и взаимосвязи между элементами объекта. Компьютерные модели такого вида мы будем называть структурно-функциональными;отдельную программу, совокупность программ, программный комплекс, позволяющий с последовательности вычислений и графического отображения их результатов, воспроизводить (имитировать) процессы функционирования объекта, системы объектов при условии воздействия на объект различных, как правило случайных, факторов. Такие модели мы будем далее называть имитационными моделями.
Формальная модель — модель, заданная на математическом или любом другом формализованном языке 

x = int(input("x="))

y = int(input("y="))

if x>0 and y>0:

    print('I')

elif x<0 and y>0:

    print('II')

elif x<0 and y<0:

    print('III')

elif x>0 and y<0:

    print('IV')

x=-3

y=-2

III

Если у точки обе координаты (x и y) положительны, то она принадлежит первой четверти.

Если координата x отрицательна, а y положительна, то точка находится во второй четверти.

Если обе координаты отрицательны, то точка принадлежит третьей координатной четверти.

Если x положительна, а y отрицательна, то точка находится в IV четверти.

не принадлежит