Дано двузначное число .найти число десятков в нем

Question

Дано двузначное число .найти число десятков в нем

Answer 1

Var a:integer;
begin
readln(a);
Write (a div 10);
end.