Вabcpascal: даны 4 числа a, b, c, d найти их сумму в результате вывести четыре знака после запятой

Var   a,b,c,d:real;
begin
readln(a);
readln(b);
readln(c);
readln(d);
writeln(round((a+b+c+d)*10000)/10000);
end.