Program Pneu; Var desejada, lida : integer; Begin ReadLn(desejada); ReadLn(lida); WriteLn(desejada - lida); End.