Contoh Program median, rata-rata dan Standar Deviasi pada program pascal

program mean_median_stdev;
uses wincrt;
var s,k,xi,x:integer;
    total,rata,median,stdev:real;
begin
write('masukkan jumlah datae cak:');readln(k);
for s:=1 to k do
begin
write('data ke-',s,':');readln(xi);
x:=x+xi;
total:=total+xi;
stdev:=sqrt((total-k*sqrt(rata))/(k-1));
end;
rata:=x/k;
if k mod 2=1 then
median:=(k+1)/2
else
median:=((k+1)+k)/2;
writeln('xxxxxxxxxxxxxxxxxxxxxxxxx');
writeln('total:',total:2:0);
writeln('mean:',rata:2:0);
writeln('median data ke-:',median:2:0);
writeln('stdev:',stdev:2:0);
writeln('xxxxxxxxxxxxxxxxxxxxxxxxx');
end.