pascal 求10个随机数，输出它们最小的一个数，最大的一个数，平均数，还有和！

Question

老师出的题目需要输出4个东西.

Answer 1

输入3个整数，输出最大的数。
Program bijiao;
var
a,b,c,max:integer;
begin
readln(a,b,c);
if a>=b
then max:=a
else max:=b;
if c>max then max:=c;
writeln(max);
end.

Answer 2

program qc;
var
i,min,max,p:longint;
a:array[0..1000] of longint;
s:real;
begin
randomize;
for i:=1 to 10 do a[i]:=random(9999);
for i:=1 to 10 do if a[i]>max then max:=a[i];
min:=99999;
for i:=1 to 10 do if a[i]<min then min:=a[i];
for i:=1 to 10 do p:=p+a[i];
s:=p/10;
writeln('最小数：:',min);
writeln('最大数,',max);
writeln('和',p);
writeln('品均:',s);
end.

Answer 3

题目有什么条件哦 不说清楚怎么做