Запишите на языке паскаль выражение, которое истинно, если переменная x

Уменя получилось 6216 dim i as integer  dim s as integerdim d as integerfor 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)p.s.прошу прощения за прошлый ответ, перепутал и соединил две =)

Var       x, s, k, i: integer; begin       for i : = 1000 to 9999 do       begin               x : = i;               s : = 0;               while x > 0 do               begin                       s : = s + (x mod 10) * (x mod 10);                       x : = x div 10;               end;               if (s mod 2 = 0) or (s mod 3 = 0) then begin                       k : = k + 1;                       {writeln(i: 5,s: 5); }               end;       end;             writeln(k); end. ответ 6216