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

Question

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

Answer 1

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