Получить новое число, удалив из заданного все цифры, кратные 3 - Pascal ABC (13163)

Формулировка задачи:

Дана строка символов, содержащая не более 255 цифр. Необходимо получить новое число, удалив из заданного все цифры, кратные 3.

Решение задачи: «Получить новое число, удалив из заданного все цифры, кратные 3»

Листинг программы

var
  s: String;
  i: Integer;
begin
  ReadLn(s);
  for i:=Length(s) downto 1 do
    if s[i] in ['0','3','6','9'] then Delete(s,i,1);
  WriteLn(s);
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Создается переменная s типа String, которая будет использоваться для чтения строки из ввода пользователя.
С помощью функции ReadLn(s) происходит чтение строки из ввода пользователя и сохранение ее в переменную s.
Затем происходит цикл for, который начинается с индекса Length(s) и продолжается до 1.
Внутри цикла происходит проверка каждого символа в строке s. Если символ равен одному из чисел 0, 3, 6 или 9, то он удаляется из строки с помощью функции Delete(s,i,1).
После завершения цикла, измененная строка записывается на экран с помощью функции WriteLn(s). Таким образом, данный код позволяет удалить из заданной строки все цифры, кратные 3.