На вход подаются два целых числа: B и M.
program Summa;var B, M, P: Integer;begin ReadLn(B); ReadLn(M); P := B + M; WriteLn(P);end.