Составьте программу вычисления количества двузначных чисел, которые кратны 2 и3

Var i, n: integer; begin     for i : = 10 to 99 do       if (i mod 2 = 0) and (i mod 3 = 0) then           n : = n + 1;     writeln(n);     // или так:     writeln((99 div 6) - int(10 /  6)); end.

Var a,b,c,k: integer; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); write('k = '); readln(k); if k=1 then     begin     if a < b then a: =b;     write('p = ',a)     end else     if k=2 then           begin           if a < b then a: =b;           if a < c then a: =c;           write('p = ',a);           end; end.

Const n = 13; var a,b: array[1..n] of integer; i,j: integer; begin write('исходный массив:           '); for i: = 1 to n do       begin       a[i]: =random(50);       write(a[i]: 3)       end; writeln; write('переработанный массив: '); j: =0; for i: = 1 to n do       if a[i]> =15 then             begin             j: =j+1;             b[j]: =a[i]             end; for j: = 1 to j do       write(b[j]: 3) end. пример: исходный массив:             29  8 19  3  0 11 39  9 34  4 45 15  3 переработанный массив: 29 19 39 34 45 15