Тут короче *язык программирования paskal* нужно решить 1) даны два не нулевых числа.найти сумму разность произведение и частное их квадратов.

Var  a, b: real;
begin 
Writeln('Введите a и b'); 
Readln(a, b);  if (a = 0) or (b = 0) then
Writeln('Ошибка! Введите числа не равные нулю.') 
else  
Writeln('Сумма квадратов: ', sqr(a) + sqr(b), '.', ' Разность квадратов: ', sqr(a) - sqr(b), '.', ' Произведение квадратов: ', sqr(a) * sqr(b), '.', ' Часное квадратов: ', sqr(a) / sqr(b), '.');
end.