Помогите пожалуйста сделать задание 2 на языке Паскаль(алгоритм Евклида).

uses - это подключает доп. модуль в данном случае crtcrt - это модуль для работы с экраном

спасибо вам,узнал на всякий случай,а то учитель еще придереться.

на pascalabc.net выдал ошибку

что за ошибка?

program NOK; function nod1(X,Y:integer):integer; begin If X<>0 then nod1:=NOD1(Y mod X,X) else nod1:=Y; end; function NOK1(x,y:integer):integer; begin NOK1:=(X div NOD1 (X,Y))*Y; end; var M,N: integer;begin writeln('Ввод M и N :'); readln(M,N);writeln (NOK1(M,N)); end.

Program Example_11;Var M, N: Integer;BeginWriteln('Введите два числа');Readln(M,N); {вводим два целых числа}If M>N Then M:=M Mod NElse N:=N Mod M;Until (M=0) Or (N=0);{до тех пор, пока одно из чисел не станет равно нулю}Writeln('НОД=', M+N)); {вывод НОД - без условного оператора, так как одно из чисел обязательно равно нулю}Readln;End.нок:program NOK; uses crt; function NOD(X,Y:integer):integer; begin If X<>0 then NOD:=NOD(Y mod X,X) else NOD:=Y; end; function NOK(X,Y:integer):integer; begin NOK:=(X div NOD (X,Y))*Y; end; var M,N: integer; begin clrscr; writeln('Ввод M и N :'); readln(M,N); writeln (NOK(M,N)); readln; end.