Решить на языке паскаль: Верно ли, что в числе есть цифра 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.