Трамвайный билет имеет шестизначный номер(от 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.