Пусть вводится последовательность символов длиной не более 4. Если все вводимые символы — цифры, то выполните преобразование данной последовательности в целое число. Паскаль.

Программа в PascalABC.Net: const   digits=['0','1','2','3','4','5','6','7','8','9']; var   s:string;   n,i,err:integer;   isdigit:boolean; begin   Write('Введите натуральное число (1-9999): ');   Read(s);   i:=1;   isdigit:=True;   n:=Length(s);   repeat     isdigit:=isdigit and (s[i] in digits);     Inc(i)   until (not isdigit) or (i>n);   if isdigit then   begin Val(s,n,err); Writeln('Введено корректное число ',n) end   else Writeln('Число содержит нецифровой символ') end. Отметим, что в PascalABC.Net в реальной жизни решение могло бы выглядеть так: var   s:string;   n,err:integer; begin   Write('Введите натуральное число (1-9999): ');   Read(s);   Val(s,n,err);   if err=0 then Writeln('Введено корректное число ',n)   else Writeln('Число содержит нецифровой символ') end.