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

Var

a, b: integer;

begin

readln (a, b) ;

writeln ('Сумма чисел: ', a+b) ;

writeln ('Разница между числами: ', abs (a-b)) ;

writeln ('Квадрат разности: ', sqr (a-b)) ;

writeln ('Частное: ', a div b) ;

writeln ('Остаток от деления первого на второе: ', a mod b) ;

end.