Даны два ненулевых числа

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