Напишите программу (на паскале) для нахождения наибольшего общего делителя для чисел 12, 24, 30, 48 и 51 с использованием процедуры​

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(в переводе с английского конец)Дальше пишем как я написал