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

Для начала нам понадобится переменная для того, чтобы нести в себе значение того номера билета, который мы введем, а также строковая переменная для того, чтобы перевести этот номер в текст:

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.