Дано трехзначное число. Если в этом числе есть хотя бы одна цифра равная пяти, то приписать к этому числу справа две пятерки. Если нет, то вывести сообщение «NO».

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