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

Program znanija;
var q,w,e,r,t:integer; znanijacom:integer;
Begin
read(znanijacom);
q:=length(znanijacom);
t:=znanijacom;
for w:=1 to q do begin //Программа работает не только с трехзначными числами, что увеличивает возможность программы
e:=znanijacom mod 10;
if e=5 then r:=1;
znanijacom:=znanijacom div 10;
end;
if r=1 then writeln(t,55) else writeln(No);
End.