Нарисована дверь, на ней табличка, там число 305, циркуль, линейка и карандаш?

Вопрос не паставь

Стёрка наверное но вопрос не совсем понятен

Видимо, " наибольший целый делитель натурального числа, меньший самого числа", иначе просто выводится число (х не равно 1)var x, i, max: integer; function del(x: integer): integer; begin      for i : = 1 to x div 2  do      begin          if x mod i = 0          then              max : = i;       end;       del : = max; end; begin      read(x);       writeln(del(x)); end.

Var   f: text;   s: string;   max: string : = '';   begin   //в папке с программой должен быть файл "input.txt"     if fileexists('input.txt') then   begin     assign(f, 'input.txt');     reset(f);     while not eof(f) do     begin       readln(f, s);       if length(s) > length(max) then         max : = s;     end;     writeln('самая длинная строка в файле: ');     writeln(max);     close(f);   end   else     writeln('файл не найден'); end.