Напишите программу, которая вычисляет НОД двух чисел. Используйте функцию.
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.

Программа с НОДvar t,t1,x,y,z:integer;Function NOD(a, b: integer): integer;Begin  If a=b then NOD:=a else if a>b then NOD:=NOD(a-b, b) Else NOD:=NOD(a, b-a);End;beginwriteln('Введите 2 числа');readln(x,y);t:=NOD(X,Y);writeln(t);end.