Наименьшее общее кратное из файла Опции

[dog]

Задача:

С клавиатуры вводится N целых чисел (из интервала [10; 100]).

Требуется

1. записать все введенные числа в файл

2. открыть файл и вывести на экран все записанные в него числа (в строку)

3. найти наименьшее общее кратное компонентов, в записи которых нет цифры k.

примечание: массивы в программе не использовать

PROGRAM PRP1;

FUNCTION NOD (x,y:INTEGER):INTEGER;
BEGIN
   IF x<>0 THEN NOD:=NOD(y MOD x, x) ELSE NOD:=y;
END;

function NOK(x,y:INTEGER):INTEGER;
BEGIN
    NOK:=(x DIV NOD(x,y))*y;
END;

VAR f: FILE OF INTEGER; 
i, 
x1, x2,
m,
k, 
n 
:INTEGER;


BEGIN
{----------------------------1-----------------------}
   REPEAT
   WRITE('Имя файла - ');
   READLN(name);
   ASSIGN(f, name); 
   {$I-} 
   REWRITE(f); 
   {$I+} 
   UNTIL IOResult=0; 
   WRITE('Начинаем ввод последовательности');
   WRITELN('  (конец последовательности > 10 или < 100)');
   WHILE (true) DO
   BEGIN
      WRITE('Значение = ');
      READLN(n);
      IF (n <=10) OR (n >=100) THEN BREAK;
      WRITE(f,n);
   END;
   CLOSE(f);
{-----------------------------2------------------------}
WRITELN(' В файле были написаны числа ');
RESET(f);
WHILE NOT EOF(f) DO
   BEGIN
      READ(f,n);
      WRITE(n, ' ');
   END;
WRITELN;

{----------------------------3--------------------------}
WRITE('Введите цифру k - ');
READLN(k);
WRITE('Числа, не содержащие k - ');
SEEK(f, 0);
FOR i:=0 TO FileSize(f)-1 DO
BEGIN
    READ(f,n);
    x1:= n DIV 10;
    x2:= n MOD 10;
    IF (x1<>k) AND (x2<>k)  THEN
    BEGIN
       WRITE(n, ' ');
       

    END;
END;
WRITELN;
END.

Первые два пункта вообще никаких проблем, выделить числа не содержащие k тоже никакой проблемы, а вот найти наименьшее общее кратное без создания массива ???

[sheka]

Ага.

С клавиатуры вводится N целых чисел (из интервала [10; 100]).

+ из кода

IF (n <=10) OR (n >=100) THEN BREAK;

т.е. я здесь чтобы не вводить лишнюю логическую переменную использовал ограничения условия задачи. Единственное что может быть, так это то, что автор не предусмотрел того случая, если ни одно из введеных чисел не удовлетворяет ВСЕМ условиям. Хотя.. Как раз эту проверку надо вставлять в том куске кода, который написал я . Ну я думаю ТС это сделает, да?

Добавлено через 2 мин.
я бы инициализировал CurrNOK как "Восемь с половиной миллионов" - любимое число моего преподавателя математики, но, к сожалению, integer..