Array Pascal

uses crt;
var I,N : byte;
total,rata,sigma,sd : real;
x : array [byte] of real;
begin
clrscr;
write('Jumlah data (maks 255) ? ');readln(N);
writeln;
total:=0;
for I := 1 to N do
begin
write ('Nilai Data ke',I,' ? ');readln(x[I]);
total := Total+x[I];
end;
rata := Total / N ;
sigma := 0;
for I := 1 to N do
sigma := sigma + sqr (x[I]-rata);
sd := sqrt(sigma/N);
writeln;
writeln(' Jumlah Data = ' ,N:7);
writeln(' Total Nilai Data = ',total:7:2);
writeln(' Rata-rata Nilai data = ', rata:7:2);
writeln(' Standart Deviasi data = ',sd:7:2);
readln;
end.