Напишите, пожалуйста, программу, подсчитывающюю количество цифр во введенной строке кратные 3. После чего удалить из введенной строки все цифры, кратные 3. На паскале

А нет. Неверно. Подожди пока.

//Pascalvar  S: string;  i, Count: byte;beginwrite('Введите строку: '); readln(S);for i := Length(S) downto 1 doif ((S[i] = '3') or (S[i] = '6') or (S[i] = '9')) then begin  Count := Count + 1;  Delete(s,i,1);end; writeln('Количество цифр кратных трем = ', Count);    writeln('Строка после удаления = ', S);end.//FreePascal/Delphi/PascalABC.NET(v3.3.1590){$MODE OBJFPC} //В PascalABC.NET можно убратьuses SysUtils; //В PascalABC.NET можно убратьvar  S: string;  i, Count: byte;beginwrite('Введите строку: '); readln(S);for i := Length(S) downto 1 dotryif StrToInt(S[i]) mod 3 = 0 thenbegin  Count := Count + 1;  Delete(s,i,1);end;exceptend;writeln('Количество цифр кратных трем = ', Count);    writeln('Строка после удаления = ', S);end.