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

Question

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

Answer 1

var
a, b: real;
begin
write('Введите два ненулевых числа: ');
readln(a, b);
a := sqr(a); { <-- Вычисляем квадрат числа a }
b := sqr(b); { <-- Вычисляем квадрат числа b }
writeln('Результат:');
writeln('Сумма квадратов: ', a + b);
writeln('Разность квадратов: ', a - b);
writeln('Произведение квадратов: ', a * b);
writeln('Частное квадратов: ', a / b);
readln
end.