Конструктор алгоритмов.
Дано двузначное (трехзначное) число. Написать программу определения: входит ли в него цифра 5?

Var n: Word;
begin
write(Введите число );
readln(n);
write((n mod 10 = 3) or (n div 10 mod 10 = 3) or (n div 100 = 3));
readln;
end.