В lazarus написать функцию, которая определяет определить является ли число счастливым

Што такое lazarus????

ответ:

program setof;

var

  n16: set of char;

  s, w: string;

  i, n: integer;

  c: char;

  is16: boolean;

begin

  n16 : = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f'];

  write ('введите строку: ');

  readln (s);

  w : = '';

  is16 : = true;

  n : = 0;

  for i : = 1 to length (s) do begin

    c : = s [i];

    if (c = ' ') or (i = length (s)) then begin

      if is16 then begin

        inc (n);

        writeln (w);

      end;

      w : = '';

      is16 : = true;

      continue;

    end;

    if is16 and (c in n16) then

      w : = w + c

    else begin

      is16 : = false;

      w : = '';

    end;

  end;

  writeln ('количество 16-ричных чисел = ', n);

  readln;

end.

объяснение:

в вводимой строке символ разделитель - пробел