паскаль: написать программу выводит первую цифру 2-х значного числа

var n: Integer;begin Write('Число: '); readln(n); if (n > 9) and (n < 100) then begin n := n div 10; WriteLn('Первая цифра числа - ', n); end else WriteLn('Число не 2-хзначное');end.