Program Standar Deviasi

Program standar deviasi;
uses wincrt;
var n,data,i,x: longint;
sig,rata,varian,stdev: real;
begin
Write('Masukkan jumlah data : ');readln(n);
for i:=1 to n do
begin
write('Data ke-',i,': ');
readln(data);
x:=x+data;
sig:=sig+sqr(data);
end;
rata:=x/n;
varian:=(sig-n*sqr(rata))/(n-1);
stdev:=sqrt((sig-n*sqr(rata))/(n-1));
writeln('Nilai Varian sebanyak ',n,' data adalah : ',varian:0:1);
writeln('Nilai Standar Deviasi sebanyak ',n,' data adalah : ',stdev:0:1);
end.