Трамвайный билет имеет шестизначный номер(от 100000 до 999999). Выяснить, является ли билет "счастливым". Билет назовем

Для начала нам понадобится переменная для того, чтобы нести в себе значение того номера билета, который мы введем, а также строковая переменная для того, чтобы перевести этот номер в текст: var chislo, f, l, i: integer; chislo_text: srting; Далее начинаем программу и запрашиваем число: begin writeln(‘Введите шестизначный номер трамвая:’); read(chislo); Теперь переводим этот номер в переменную chislo_text: Str(chislo, chislo_text); Val(chislo_text[1], f, i); Val(chislo_text[6], l, i); if (f mod f = 0) and (l mod l = 0) then writeln(‘Билет является счастливым’) else writeln(‘Билет не является счастливым’); end.