Компьютер выдает ошибку: встречен конец файла, а ожидался оператор. исправить. само гласило так: (с клавиатуры вводятся два целых положительных числа. найти их наибольший общий делитель.) function nodfinder (m,n: integer): integer; var n1,m1: integer; begin if m < n then begin n1 : = m; m1 : = n; end else begin n1 : = n; m1 : = m; end; var m,n,p,n1,m1,result: integer; begin writeln ('введите два числа'); readln(m,n); while n1 > 0 do begin p : = m1 mod n1; m1 : = n1; n1 : = p; result : = m1; writeln(result); end; end.
M<B
begin
ost:=1;
writeln ('Введите два числа');
readln(b,m);
while ost<>0 do
begin
if m>b then
begin
c:=m;
m:=b;
b:=c;
end;
ost:= b mod m;
result:=m;
b:=ost;
end;
writeln('НОД: ',m);
end.