Дано трехзначное число. если в этом числе есть хотя бы одна цифра равная пяти, то приписать к этому числу справа две пятерки. если нет, то вывести сообщение «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.