Дано двузначное число. Найдите число десятков в нем. Входные данные Вводится двухзначное число. Выходные данные Выведите ответ на задачу.
Var a: integer; begin readln(a); writeln(a div 10); end.