Ответ:

var a,b: integer;

function NOD(x,y: integer): integer;

begin;

  if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;

end;

begin;

  readln(a,b);

  writeln( 'НОД= ', NOD(a,b) );

end.

Объяснение:

begin(в переводе с английского начало)

if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y(пишем этот код)

end(в переводе с английского конец)

Дальше пишем как я написал