Наибольший делитель

program pr1;
var a,b:integer;
function f_nod(a,b:integer):integer;
begin
  while (a<>0) and (b<>0) do
  if a>b then a:=a mod b
         else b:=b mod a;
  if a=0 then f_nod:=b
         else f_nod:=a;
end;
begin
  writeln('Vvedi a,b');
  readln(a,b);
  writeln(f_nod(a,b));
end.

program pr1;
var i,a,b,n:integer;
begin
   writeln('Vvedi a.b');
   readln(a,b);
   if a>b then n:=a
            else n:=b;
   writeln('Deliteli');
   for i:=1 to n do
   if (a mod i=0)and(b mod i=0) then writeln(i);
end.

uses crt;
var
a,b,d,i,m:integer;
begin
clrscr;
writeln('введите первое число ');readln(a);
writeln('введите второе число');readln(b);
if a=b then d:=a;
writeln(d);
if a < b
  then
    m := a;
  else
    m := b;
 
  for i := 1 to m
  do
    if ((a mod i)=0) and ((b mod i)=0)
    then
      d:= i;
 
  Writeln('НОД = ', d);
  readln;
end.