program Primer; {вычисление суммы двух чисел}
var
   x,y,s: integer;
begin
  WriteLn('Введите через пробел два числа ');
  ReadLn(x,y);
  s := x + y;
  WriteLn('Сумма чисел равна ',s);
end.