Составить программу нахождения суммы и разности двух чисел вводимых с клавиатуры

program zz1;

var a, b, r, i:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

r: = a + b; / / высчитываем сумму двух введенных с клавиатуры чисел

i: = a - b; / / высчитываем разность двух введенных с клавиатуры чисел

writeln (' сумма двух чисел ', a,' + ', b,' = ', r); / / выводим ответ

write (' разность двух чисел ', a,' - ', b,' = ', i);

end.