даны 2 числа а и б если они оба отрицательные то найти сумму их квадратов иначе модуль их разностей

var a,b,r:integer;beginreadln(a,b);if (a<0) and (b<0) then r:=sqr(a)+sqr(b)else r:=abs(a-b);write(r);end.