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

Program Begin10;

Var
  a, b: Real;

Begin
  ReadLn(a, b);
  WriteLn('Add: ', Sqr(a) + Sqr(b)); { Сумма }
  WriteLn('Sub: ', Sqr(a) - Sqr(b)); { Разность }
  WriteLn('Mul: ', Sqr(a) * Sqr(b)); { Произведение }
  WriteLn('Div: ', Sqr(a) / Sqr(b)); { Частное }
  ReadLn;

End.