Пишет в компиляторе "превышение во времени", как можно исправить или сократить код? var i, n, a, rr, jj: int64; begin readln(n, a); rr : = 0; while rr < n do begin jj : = 0; for i : = 1 to a do begin if a mod i = 0 then inc(jj) end; if jj = 2 then begin write(a, ' '); inc(rr) end; inc(a) end; end.

Program lol (input, output); var a, n, b, i, p,s, m: integer; c: real; begin read (n); a: =n; b: =0; c: =0; p: =1; while a < > 0 do begin a: =a div 10; b: =b+1; end; while b < > 0 do begin p: =1; for m: =1 to b do p: =p*10; s: =(n mod p) div (p div 10); c: =c+s; end; b: =b-1; end; writeln (c); end. program lol (input, output); var i, a: integer; begin a: =0; for i: =31 to 55 do begin if (i mod 2) < > 0 then a: =a+i; end; writeln (a); end. var a, b, c, s, i: integer; begin read (a, b); if a< b then begin c: =a; a: =b; b: =c; end; c: =a; while c > 0 do begin while c > = b do begin c: =a-b; if c > 0 then s: =c; a: =c; end; a: =b; b: =c; end; writeln (s); end. program lol (input, output); var m, n, prod: word; begin readln(m, n); prod : = m * n; while m < > n do begin if m > n then begin m : = m - n end else begin n : = n - m end end; writeln(prod div m) end. program lol (input, output); var a, b, c, e: integer; d: real; begin read (a, b); d: =a/b; c: =trunc(d); e: =a-(b*c); writeln ('частное: ',c); writeln ('остаток: ',e); end.

Не самый рациональный метод решения, но как говорится  чем смог тем ) var a,b,c,x,kc,kn,k1,k2: integer;   begin  kc: =1;   kn: =1;   k1: =0;   k2: =0;   a: =0;   b: =0;   writeln('введите число x');   read(x);   while x> 0 do begin  c: =x mod 10;   if c mod 2=0 then begin  inc(k1);   a: =a+c*kc;   kc: =kc*10;   end;   if c mod 2< > 0 then begin  inc(k2);   b: =b+c*kn;   kn: =kn*10;   end;   x: =x div 10;   end;   if k1> k2 then writeln('четных больше нечетных') else if k1=k2 then writeln('количество четных = количеству нечетных') else writeln('четных меньше нечетных');   writeln(a,' ', b);   end.