program myprogram;
uses crt;
var a:string;
     b,c:integer;
  d:boolean;
begin
  clrscr; {чистим экран}
  readln(a); {читаем строку с экрана}
  val(a,b,c); {преобразуем строку в целое число}
  if c <> 0 then {если преобразование не удалось - выходим из программы}
  begin
   writeln('Вы ввели не целое число');
   readkey; {на подобии system::pause, ждет пока мы нажмем любую клавишу предже чем выйти}
   exit;
  end;
  for c:=1 to length(a) do {проверяем каждый элемент строки}
  begin
   if a[c] = '5' then  
   begin
    d:=true;
    break;
   end;
  end;
  if d = true then writeln('Число: ', b, '. В нем есть цифра 5')
     else writeln writeln('Число: ', b, '. В нем есть цифра 5');
  readkey;
end.