Вводится двузначное число, вычислите произведение его цифр. (в pascal)

Var
    n: integer;

begin
    readln(n);
    if (n < 10) or (n > 99) then
        writeln('неверное число')
    else
        writeln((n div 10) * (n mod 10));
end.