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

Question

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

Answer 1

var
  a, b: integer;
begin
  readln(a, b);
  writeln('Разность квадратов: ', sqr(a) - sqr(b));
  writeln('Произведение квадратов: ', sqr(a) * sqr(b));
  writeln('Частное квадратов: ', sqr(a)/sqr(b));
end.