Введите целое число от 10-999 а)определить количество знаков в числе б)определить,кратно ли 3

//PacsalABC.Net// (c) NaaManvar    s : integer;begin    write('Введите число (10-999): ');    readln(s);    writeln('В числе ', s, ' ', s.ToString.Length, ' знака');    write('Число ', s);    if s mod 3 = 0 then        write(' кратно')    else        write(' не кратно');    writeln(' трём')end.