язык Pascal !!!!!Дан алгоритм: Подпрограмма1)ввести естественное число M,N2)если M=N

Язык Pascal !!!!!
Дан метод:
Подпрограмма
1)ввести естественное число M,N
2)если M=N перейти к п. 5, по другому к последующему пункту
3)если Mgt;N, то M:=M-N; иначе N:=N-M
4)перейти к п. 2
5)Передать значение M в основную программку
6) Конец подпрограммы
Основная программка
1)ввести значение A,B,C,D
2)E:=A*D-B*C
3)F:=B*D.
4)если Е=о , вывести значение Е и перейти к п. 9, иначе перейти к следующему пт
5)M:=E, N:=F; перейти к подпрограмме вычисления НОД
6)G:=M;
7)E и F нацело поделить на G
8)вывести значение E и F на печать
9)конец программки

Необходимо написать программу по данному алгоритму.