Компьютер выдает ошибку: встречен конец файла, а ожидался оператор. исправить. само гласило так: (с клавиатуры вводятся два целых положительных числа. найти их наибольший общий делитель.) 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.