Помогите с информатикой:
из чисел 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.