[Alegun]

А если совсем G-кодом

Код:

var
 c: array[0..9] of integer = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0);

function proverka(const n: string): string;
var
 i, b: integer;
begin
 Result:= 'Neverno ';
 for i := 1 to Length(n)-1 do
  for b := 0 to 9 do
   if n[i] = IntToStr(b) then inc(c[b]);
 for b:= 0 to 9 do
  if c[b] = 3 then Result:= 'Verno ';
end;