Даны 4 числа a b c d если а+d> c+d то выводим a+b (паскаль )

Var a,b,c,d:integer;
begin
readln(a);
readln(b);
readln(c);
readln(d);
if a+d>c+d then writeln(a+b);
end.