Question

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

Answer 1

var

   a, b: integer;

begin

   readln(a, b);

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

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

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

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

end.