Даны 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.