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

   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.