Помогите, пожалуйста, срочно!
Вводится цифра А. Определить, присутствует ли хотя бы одна такая цифра в числе. На Pascal.

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Такой цифры в числе нет