Написать программу на Паскале которая запрашивает трёхзначное число, затем с помощью функций Div mod разделяет число на цифры и проверяет имеются ли в введенном числе цифра "5". Если да, то печатает "имеется" иначе "не имеется

var N, k, y: integer;begin  write('Введите число: ');   readln(N);  k := 0;  repeat     y := N mod 10;    if y = 5 then k := k + 1;    N := N div 10;  until N = 0;  if k <> 0 then writeln('Имеется')  else writeln('Не имеется')end.