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

program easy;

var

    input1,input2: integer;

begin

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

  readln(input1);

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

  readln(input2);

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

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

  writeln('произведение кубов ', input1,' и ',input2,' = ', (input1 * input1 * input1) * (input2 * input2 * input2));

  readln;

end.

проверял в pascalabc.net standardpack.