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

var

   a, b: integer;

begin

   readln(a, b);

   writeln('Сумма: ', a + b);

   writeln('Разность: ', a - b);

   writeln('Произведение: ', a * b);

   writeln('Частное квадратов: ', sqr(a) / sqr(b));

end.