Даны два реальных числа. Найти сумму их модулей, разность их квадратов

Program Easy;

var

   input1,input2: integer;

begin

 write('введите 1-е число: ');

 readln(input1);

 write('введите 2-у число: ');

 readln(input2);

 writeln('сумма модулей ', input1,' и ',input2,' = ', абс(input1) + абс(input2));

 writeln('разность квадратов ', input1,' и ',input2,' = ', sqr(input1) - sqr(input2));

 writeln('творенье кубов ', input1,' и ',input2,' = ', (input1 * input1 * input1) * (input2 * input2 * input2));

 readln;

end.

Инспектировал в PascalABC.NET StandardPack.