Пример использования функции программиста — Pascal(Паскаль)

program n;
var
   c1,c2:integer; {  числа, НОД которых надо найти }
   nd:integer;    { наибольший общий делитель }

{ функция программиста }
function Nod(a:integer;b:integer):integer;
var
   r:integer; { остаток от деления числа a на b} 
begin
     while (a mod b)<>0 do
      begin
           r:=a mod b; { остаток от деления}
           a:=b;
           b:=r;
      end;
     nod:=b;
end;

{ основная программа }
begin
     writeln('Вычисление наибольшего общего делителя (НОД)');
     writeln('с использованием алгоритма Евклида');
     write('Введите в одной строке через пробел ',
           'два целых положительных числа ');
     readln(c1,c2);
     nd:=Nod(c1,c2); { вызов функции программиста }
     writeln('НОД чисел ',c1,' и ',c2,' это ',nd);
end.