program SumOfNumbers;

var
A, B, Sum: Integer;

begin
// Ввод чисел с клавиатуры
write('Введите число A: ');
readln(A);

write('Введите число B: ');
readln(B);

// Вычисление суммы чисел
Sum := A + B;

// Вывод результата на экран
writeln('Сумма чисел A и B равна ', Sum);
end.