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

program z;

var a, b, s, r: real;

begin

writeln ('Введите первое число');

readln (a);

writeln ('Введите второе число');

readln (b);

s: = a+b;

r: = a-b;

writeln ('Сумма = ', s);

writeln ('Разность = ', r);

end.