Помогите с информатикой, пожалуйста Pascal abcНапишите функцию без функций и сложных

Procedure CKR(var M,N:integer);
Var d:integer;
Begin
if Mgt;N then d:=N
else d:=M;
While dgt;1 do
   Begin
   if (M mod d = 0)and(N mod d = 0) then
      Begin
      M:=M div d;
      N:=N div d;
      if Mgt;N then d:=N
      else d:=M
      End;
   d:=d-1
   End;
End;

Var M,N:integer;
Begin
Write('M = ');ReadLn(M);
Write('N = ');ReadLn(N);
CKR(M,N);
WriteLn(M,'/',N);
End.