program z2_23;
var a,b :integer;
begin
write('vvedite n= ');
read(a);
b:=a div 10;
write('ko0licestvo desetkov=',b);
read;
end.