Решить на языке паскаль: Верно ли, что в числе есть цифра 5

var a,n: integer; begin write ('Введите число: '); readln (n); repeat a: =n mod 10; n: =n div 10; until (n=0) or (a=5); if a=5 then write ('В этом числе есть цифра 5') else write ('В этом числе нет цифры пять') end.