Модуль 3. Задание 6

program P1; {Название программы}
uses Crt; {подключение модуля, необходимого для процедур 
           очистки экрана и задержки}

var x,y,s: integer; {Задание переменные типа integer}
begin {Начало программы}
  ClrScr; {Очистка экрана}
  WriteLn('Вводим через пробел два числа '); {Вывод на экран вспомогательной надписи}
  ReadLn(x,y); {Считывание введенных данных в переменные}
  s := x + y; {Складываем два числа, результат заносится в переменную S}
  WriteLn('Сумма чисел равна ',s); {Вывод ответа}
  ReadKey; {ожидание нажатия клавиши}
end. {Конец программы}