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

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