Объяснение:
var
y : double;
a, b : integer;
begin
readln(a);
readln(b);
if a=b then
y := 4*sqr(b)-a
else
y := 2*a+b;
writeln(y:2:2);
end.
