program ideone;
var
   number1, {переменная, в которой будет содержаться первое число}
   number2, {переменная, в которой будет содержаться второе число}
    rezult {переменная, в которой будет содержаться результат}
     :integer; 

Begin
  
   Write ('Введите первое число ');
  
   Readln (number1);
 
   Write ('Введите второе число ');
   {Выводим на экран символы, записанные между апострофами}
   Readln (number2);
   {Введенное пользователем число считываем в переменную number2}
   rezult := number1 + number2;
   {Находим сумму введенных чисел и присваиваем переменной rezult}
   Write ('Сумма чисел ', number1, ' и ', number2, ' равно ', rezult);
   {Выводим на экран строчку, содержащую ответ задачи}
   Readln;{Процедура задержки экрана}
End.