Даны 2 числа больше некоторого введенного k получить квадрат из модулей, если числа отрицательные, то сложить их, в противном случае увеличить числа в 3 раза

Var a,k,v:real;
begin
readln(a,k);
if a>k then begin 
v:=abs(a*a); 
write(v); 
end;
if (a<0) and (k<0) then
 v:=a+k
else
writeln(a+3,' ',k-3); 
end.