Дано число (a),если оно однозначное,то умножить его на 3,если трехзначное разделить на 3

Var
    a: integer;
    b: double;

begin
    readln(a);
    b := a;
    if (a mod 10 = a) then
        b := a * 3;
    if (a div 100 <> 0) and (a div 1000 = 0) then
        b := a / 3;
    writeln(b);
end.

//прога на Pascal`e
var
a: integer;
begin
write ('Введите A: ');
readln (a);

if  (a div 10) = 0 then write (a*3)
  else if (a div 100) <>0 then write (a/3)
     else write ('Это не трехзначное и не однозначное число');

end.