Написать программу, которая проверяет, является ли введённая с клавиатуры строка шестнадцатеричным числом. в паскале.

Не понравилась реализация, переделал, специально сохранив основу предыдущего решения. const   legal = ['0'..'9', 'a'..'f', 'a'..'f']; var   s: string;   i: integer;   ishex: boolean; begin   writeln('введите строку: ');   readln(s);   i : = 1;   ishex : = true;   while (i < = length(s)) and ishex do   begin       if not (s[i] in legal) then ishex : = false;       i : = i + 1   end;   if ishex then       writeln('введенная строка является шестнадцатиричным числом.')   else       writeln('введенная строка не является шестнадцатиричным числом.'); end. тестовое решение: введите строку: 58bfa введенная строка является шестнадцатиричным числом. введите строку: 1054acg введенная строка не является шестнадцатиричным числом.

Var       max, n, t: integer; begin       readln(n);       max : = -1;       while n > 0 do       begin               t : = n mod 10;               if (t mod 2 = 1) and (max < t) then                       max : = t;               n : = n div 10;       end;             if max = -1 then writeln('нет такого числа')       else               writeln('max = ', max); end.

Var       a, b, i, k: integer; begin       readln(a, b);             for i : = a to b do               if i mod (7 * 2) = 0 then               begin                       k : = k + 1;                       writeln(i);               end;             writeln('k = ', k); end.