Напишите программу, которая уменьшает размер программ, написанных на Питоне (без использования некоторых возможностей языка). Программа считывает количество строк, затем — сами эти строки по очереди. Каждая строка выводится, но в изменённом виде:

если следуют несколько пробелов подряд не в начале строки, то нужно оставить только один пробел;

если встретился символ комментария #, то его и всё, что за ним, выводить не нужно;

если лишние пробелы или символ комментария встретились внутри (одинарных) кавычек, то ничего убирать или мен

//Dev-C++ 5.11 (C)

#include <stdio.h>
int main()
 {FILE *inp,*outp,*para;
 int n=1,i;
 char c,ckar;
 inp=fopen("input.txt","rt");
 para=fopen("input.txt","rt");
 outp=fopen("output.txt","wt");
 c=fgetc(inp);
 while (c!=EOF)
  {if (c=='\n')
   {if(n>6) for(i=0;i<n;i++)
     {ckar=fgetc(para);
     fputc(ckar,outp);}
   else
    for(i=0;i<n;i++)
     ckar=fgetc(para);
   n=0;}
  c=fgetc(inp);
  n++;}
 if(n>6)
    for(i=0;i<n-1;i++)
     {ckar=fgetc(para);
     fputc(ckar,outp);}
   else
    for(i=0;i<n-1;i++)
     ckar=fgetc(para);
 return 0;}

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

function NOK(a,b:integer):integer;
begin
  if a=b then Result:=a
  else begin
    var c:=a*b;
    repeat
      if a>b then a:=a-b else b:=b-a;   
    until a=b;
    Result:=c div a
  end
end;

begin
  var n:=ReadInteger('N=');
  var L:=new List<integer>;
  var m:=n;
  while m>0 do begin
    var d:=m mod 10;
    L.Add(d);
    m:=m div 10
    end;
  var a:=L.Where(x->x<>0).Distinct.ToArray;
  var k:=a[0];
  if a.Length>1 then
    for var i:=1 to a.Length-1 do k:=NOK(k,a[i]);
  Range(k,n,k).Println;
end.

Пример
N= 227
14 28 42 56 70 84 98 112 126 140 154 168 182 196 210 224

Как это работает?
Если число делится на каждое из нескольких чисел, то оно делится и на НОД этих чисел, Функция НОД позволяет найти НОД пары чисел, а её применение несколько раз позволит найти НОД для необходимого набора чисел.
Создаем объект типа "список целых" и цифра за цифрой помещаем туда числа, совпадающие с цифрами заданного числа n. Затем просматриваем список и все уникальные элементы, за исключением нуля, заносим в массив а. Далее вычисляем НОД для всех элементов полученного массива.
Понятно, что первым в последовательности искомых чисел будет стоять НОД, а далее пойдут числа, которые будут увеличиваться каждый раз на НОД, пока не достигнут n.