Question

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

Answer 1

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.