Begin10. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их квадратов.
var a, b: real;
begin
  write('Введите два числа ->');
  readln(a, b);
  writeln('Сумма квадратов = ', sqr(a)+sqr(b):6:2);
  writeln('Разность квадратов = ', sqr(a)-sqr(b):6:2);
  writeln('Произведение квадратов = ', sqr(a)*sqr(b):6:2);
  writeln('Частное квадратов = ', sqr(a)/sqr(b):6:2);
end.