program SumOfNumbers;
vaA, B, Sum: Integer;
begi// Ввод чисел с клавиатурwrite('Введите число A: ')readln(A);
write('Введите число B: ')readln(B);
// Вычисление суммы чисеSum := A + B;
// Вывод результата на экраwriteln('Сумма чисел A и B равна ', Sum)end.
program SumOfNumbers;
va
A, B, Sum: Integer;
begi
// Ввод чисел с клавиатур
write('Введите число A: ')
readln(A);
write('Введите число B: ')
readln(B);
// Вычисление суммы чисе
Sum := A + B;
// Вывод результата на экра
writeln('Сумма чисел A и B равна ', Sum)
end.