Выведите сумму чисел, поданных на ввод. входные данные два целых положительных числа, не превышающих 1000. выходные данные выведите сумму данных чисел.

Var
  m,n:integer;

begin
  Write('Введите через пробел два неотрицательных целых: ');
  Readln(m,n);
  Writeln('Их сумма равна ', m+n)
end.