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

Решение на PascalABC:
//PacsalABC.Net
// (c) NaaMan

var
    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.