Дано случайное двузначное число. Найти число десятков в нем- QBasic(Бейсик)

USES CRT;
VAR a : INTEGER;
BEGIN
  CLRSCR;
  WRITE ("Vvedite dvuznachnoe chislo");
  READLN (a);
  WRITE ("Desyatkov: ");
  WRITELN (a div 10);
END.