Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Ребята помогите где тут ошибка?
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, а ожидалось :

Ответ оставил Гость

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

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