1. Выполните на компьютере программу Еvklid. Протестируйте ее на значениях М=32, N=24;…

2 задача на паскале будет выглядеть так: Var a,b,c: integer; Function NOD (N,M: integer): integer; Begin While M<>N do if M>n then M: =M-N else N: =N-M; NOD: =M; End; Begin write ('Введите 3 числа через пробел '); readln (a,b,c); writeln ('NOD=',NOD (NOD (a,b) ,c); End.