编写一个Pascal程序，可让用户输入四个数字，并传回大於四个输入数字的平均数的数字。
例如
1
2
3
4
会输出3同4
因为(1+2
+3
+4)/4=2.5
大於2.5的会显示出来
请问怎编写?

var a,b,c,d:longint; begin read(a,b,c,d); if a > (a+b+c+d)/4 then write(a); if b > (a+b+c+d)/4 then write(b); if c > (a+b+c+d)/4 then write(c); if d > (a+b+c+d)/4 then write(d); end.

介个很简单啊