program belazor var integer begin writeln Введите два слагаемых readln

program belazor;
      var r,c:integer;
begin
    writeln('Введите два слагаемых');
       readln  (r);
       readln   (c);
       writeln('Сумма ',r, ' + ', c, ' равна ',r+c);
        readln();
end.