program Programm;
var
  X, Y, Sum : Integer;
begin
  Write ('Введите числа X и Y : ');
  ReadLn (X, Y);
  Sum := X + Y;
  WriteLn ('Сумма чисел X и Y равна ', Sum);
end.

Program sum;
{Программа выщитывает значения суммы попеременно введенных целых чисел
(С) Copyright 2005}
uses
crt;
var
intNumber1        :  integer;  {первое число}
intNumber2        :  integer;  {второе число}
intSumOfNums   :  integer;   {Переменная для хранения значения суммы чисел, т.е. результата анализа}
begin {начало основного модуля программы}
clrscr; {очищаем экран монитора от нечисти}
Writeln('Программа для суммирования двух целых числе. Выполняйте предложенные действия в заданном порядке и не допуская ошибок (например ввести букву вместо числа) иначе программа покарает Вас!');
Writeln;
Writeln('Введите целое рациональное число, которое буддет суммироваться со вторым (и нажмите Enter):');
Readln(intNumber1);
Writeln;
Writeln('Введите целое рациональное число, которое буддет суммироваться с первым (и нажмите Enter):');
Writeln('Подождите, пока программа анализирует макро-структуру цифровой прямой для выполнения заданных действий');
Delay(10000);
intSumOfNums:=intNumber1+intNumber2;  {производим микровычисления}
Writeln;
Writeln('После супер-анализа введенных целочисленных числе программа сконструировала макро-структурную таблицу целых чисел из которых сделала вывод, что сумма данных чисел равна: ',intSumOfNums);
writeln;
Writeln('Спасибо, что воспользовались данной программой');
Writeln('(C) Copyright 2005');
end. {конец программы}