Дано четрые переменных. вывести их сумму и что бы после точки получившего числа стояло четыре знака (на паскале)

Var a, b, c, d: real;
begin
     readln(a, b, c, d);
     writeln((a + b + c + d):5:4);
end.