Нопишите хорошие поздровления для славф(славянсар)

Компьютер быстро вошел в нашу жизнь. Еще несколько лет назад было редкостью увидеть какой-нибудь персональный компьютер – они были, но были очень дорогие, и даже не каждая фирма могла иметь у себя в офисе компьютер. А теперь? Теперь в каждом третьем доме есть компьютер, который уже глубоко вошел в жизнь человека. Современные вычислительные машины представляют одно из самых значительных достижений человеческой мысли, влияние которого на развитие научно-технического прогресса трудно переоценить. Для многих людей сейчас компьютер уже не роскошь, а необходимый предмет домашней или рабочей обстановки.

1. Короткое решение для числа произвольной длины (на символьной строке)

var
  s:string;
  c:char;
begin
  Write('Введите натуральное число: ');
  Readln(s);
  Write('введите искомую цифру: ');
  Readln(c);
  if Pos(c,s)>0 then
    Writeln('Такая цифра в числе есть')
  else
    Writeln('Такой цифры в числе нет')
end.

Тестовое решение
Введите натуральное число: 43543232
введите искомую цифру: 4
Такая цифра в числе есть

2. Более традиционное решение с целочисленными переменными

var
  s,c:integer;
  brk:boolean;
begin
  Write('Введите натуральное число: ');
  Read(s);
  Write('введите искомую цифру: ');
  Read(c);
  brk:=false;
  repeat
    if s mod 10=c then brk:=True;
    s:=s div 10
  until brk or (s=0);
  if brk then
    Writeln('Такая цифра в числе есть')
  else
    Writeln('Такой цифры в числе нет')
end.

Тестовое решение
Введите натуральное число: 43543232
введите искомую цифру: 6
Такой цифры в числе нет