Синформатикой: из чисел a b c d d выбрать такие которые больше среднего арифметического этих чисел напишите на языке паскаль. заранее

Program n1;
var a,b,c,d,s:real;
begin
read(a,b,c,d);
s:=(a+b+c+d)/4;
if a>s then
begin
writeln(a);
if b>s then
begin
write(b);
if c>s then
begin
write(c);
if d>s then
begin
write(d);
end;
end.