Question

Даю 40 баллов!!! Напишите программу в паскале. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их квадратов.
входные данные: 2 1
выходные данные: 5 3 4 4

Answer 1

   var a,b:real;
begin
   readln (a,b); 
   write(sqr(a)+sqr(b) + ' '); 
   write(sqr(a)-sqr(b) + ' '); 
   write(sqr(a)*sqr(b) + ' '); 
   write(sqr(a)/sqr(b));
end.