Question

Ребята помогите где тут ошибка?
Program D;
var a,b,c:integer;
integer :NOD ('m,n');
begin
while m<>n do
if m>n then m:=m-n else n:=n-m;
NOD:=m;
end;
begin
write('a=');read(a);
write('b=');read(b);
write('c=');read(c);
writeln;
writeln('NOD(a,b,c)=',NOD(NOD(a,b),c));
end.
Выдаёт ошибку
Program1.pas(3) : Встречено ''NOD'', а ожидалось ':'

Answer 1

Объявление NOD не верно. если это функция, то надо писать:

function NOD(n: integer; m: integer) : integer;