var i,k:integer;
begin
k:=0;
for i:=10 to 99 do
if (i mod 10)+(i div 10)=13 then 
k:=k+1;
write ('Kol-vo=',k);
end.