Напишите программу, которая определяет количество десятков в двузначном числе n (в паскале ! )

Program zadacha_1;
var n: integer;
begin
writeln('Введите любое двухзначное число');
read(n);
writeln('Число десятков равно ', n div 10);
readln();
end.