Помогите с информатикой:
из чисел 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 agt;s then
begin
writeln(a);
if bgt;s then
begin
write(b);
if cgt;s then
begin
write(c);
if dgt;s then
begin
write(d);
end;
end.