Дано трехзначное число. Если в этом числе есть желая бы одна

Var
  v, a,b, c:integer;
begin
  writeln('Введите трёхзначное число');
  readln(v);
  a:=v div 100;
  b:=(v - a*100) div 10;
  c:=v-a*100-b*10;
  if (a=5) or (b=5) or (c=5) then
    writeln(v*100+55) else writeln('lt;lt;NOgt;gt;');
end.

-------Пример---------
Трёхзначное число 152
Вывод: 15255