Ребята помогите где здесь ошибка?Program D;var a,b,c:integer;integer :NOD

Ребята помогите где здесь ошибка?
Program D;
var a,b,c:integer;
integer :NOD ('m,n');
begin
while mlt;gt;n do
if mgt;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'', а ожидалось ':'

Тамара 2019-07-12 08:07:13

integer :NOD ('m,n'); - недопустимая конструкция в Паскале

Алла Гимельштейн 2019-07-12 08:11:23

rogram : D;var a,b,c:integer;function NOD(m,n:integer):integer;beginwhile m<>n doif m>n then m:=m-n else n:=n-m;NOD:=m;end;beginwrite('a=');read(a);write('b=');read(b);write('c=');read(c);writeln;writeln('NOD(a,b,c)=',NOD(NOD(a,b),c));end.

Вадим Кидияров-Шевченко 2019-07-12 08:16:56

Каким слово можно поменять fanction, а то мы его не проходили?

Aleksej Nozdrunkov 2019-07-12 08:18:32

Во-первых, вы его ошибочно пишете, а во-вторых это описание специальной подпрограммы, именуемой функцией. Без нее нельзя здесь, потому что к ней два раза идет воззвание.

Вова 2019-07-12 08:20:42

А то, что Вы не учили функции - это ваша беда...

Antonina Zarubej 2019-07-12 08:24:40

Спасибо для вас за помощь

Александра Галат 2019-07-12 08:31:59

помогите решить, как можно прытче заблаговременно спасибо

Юрка Нягулов 2019-07-12 08:38:58

признательность лучше выражать нажатием "сердечка" около ответа и кнопкой - Наилучшее решение ;-)