Напишите программу которая Определяет nod трех натуральных чисел (с использованием процедур) Срочно

var a,b,c:integer;procedure main(a,b,c:integer);var i,max,nod:integer;begin if (a>b) and (a>c) then  max:=a else  if (b>a) and (b>c) then   max:=b  else   max:=c; nod:=1; for i:=1 to max do begin  if (a mod i = 0) and (b mod i = 0) and (c mod i = 0) then   nod:=i; end; writeln(nod);end;begin read(a,b,c); main(a,b,c);end.