Помогите с информатикой:
из чисел A B C D d выбрать такие которые больше среднего арифметического этих чисел.
Прошу напишите на языке Паскаль. Заранее спасибо

program n1;var a,b,c,d,s:real;beginread(a,b,c,d);s:=(a+b+c+d)/4;if a>s thenbeginwriteln(a);if b>s thenbeginwrite(b);if c>s thenbeginwrite(c);if d>s thenbeginwrite(d);end;end.