Среди всех натуральных четырехзначных чисел подсчитать колличество таких, сумма квадратов цифр, которых кратна двум или трем, ответ зписать целым

Уменя получилось 6216 dim i as integer  dim s as integerdim d as integer' //  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535for i = 1000 to 9999              s = cint((cint(mid(cstr(i), 1, ^ 2 + (cint(mid(cstr(i), 2, ^ 2 + (cint(mid(cstr(i), 3, ^ 2 + (cint(mid(cstr(i), 4, ^ 2)            if s mod 2 = 0 or s mod 3 = 0 then d += 1          next        msgbox(d)? жми лучший

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! нулевой шаг: создание типизированного файла нужной структуры begin   var f: file of real;   assign(f,'myreal.bin'); rewrite(f);   loop 2 do begin       seqrandominteger(10,1,100).select(t-> t/10).foreach(t-> write(f,t));       seqrandominteger(10,-100,-1).select(t-> t/10).foreach(t-> write(f,t));       end;   f.seek(0); // начало файла   var b: real;   while not eof(f) do begin read(f,b); print(b) end;   println;   f.close end. пример: 9.7 1 4.1 8.3 5.6 9.3 2.2 9.3 5.8 8.8 -8.8 -7.7 -1.4 -5.2 -7.2 -8.3 -1.3 -8.9 -6.3 -4.8 3.5 3.8 3.2 6 3.2 4.5 10 4.5 6.1 0.7 -8 -0.8 -3.3 -9.5 -7.9 -0.9 -7.4 -9.4 -1.8 -4.6 собственно, программа begin   var f1,f2: file of real;   assign(f1,'myreal.bin'); reset(f1);   if f1.filesize mod 20< > 0 then begin       writeln('количество компонент во входном файле не кратно 20');       exit       end;   assign(f2,'myreal2.bin'); rewrite(f2);   var buf: =new real[5];   var b: real;   while not eof(f1) do begin       // переписываем пять положительных       loop 5 do begin read(f1,b); write(f2,b) end;       // считываем пять положительных в буфер       for var i: =0 to 4 do read(f1,buf[i]);       // переписываем пять отрицательных       loop 5 do begin read(f1,b); write(f2,b) end;       // пишем пять положительных из буфера       foreach var t in buf do write(f2,t);       // переписываем пять отрицательных       loop 5 do begin read(f1,b); write(f2,b) end       end;   f1.close;   // контрольное чтение    f2.seek(0); // к началу    while not eof(f2) do begin read(f2,b); print(b) end;   writeln;     f2.close end. пример 9.7 1 4.1 8.3 5.6 -8.8 -7.7 -1.4 -5.2 -7.2 9.3 2.2 9.3 5.8 8.8 -8.3 -1.3 -8.9 -6.3 -4.8 3.5 3.8 3.2 6 3.2 -8 -0.8 -3.3 -9.5 -7.9 4.5 10 4.5 6.1 0.7 -0.9 -7.4 -9.4 -1.8 -4.6

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   var (m,n): =readinteger2('количество строк и столбцов в матрице: ');   writeln('*** исходная матрица [',m,',',n,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   a: =transpose(a);   writeln('*** транспонированная матрица [',n,',',m,'] ***');   a.println(4) end. пример количество строк и столбцов в матрице: 5 8 *** исходная матрица [5,8] ***   17  85 -69  45 -56   46  83 -82  96    6   21 -32 -16  -9  78   -35  45 -98  74  32   -46 -19 -82  85  76   53  26  14 -46  26   -51 -17 -41 -41    2   19 -35 -34  83 -87 *** транспонированная матрица [8,5] ***   17  46  21 -35 -46  53 -51  19   85  83 -32  45 -19  26 -17 -35   -69 -82 -16 -98 -82  14 -41 -34   45  96  -9  74  85 -46 -41  83   -56    6  78  32  76  26    2 -87