Помогите, пожалуйста, срочно! Вводится цифра А. Определить, присутствует ли хотя бы одна такая цифра в числе. На 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 Такой цифры в числе нет