PASCAL: rumus standar deviasi

program standar_deviasi;

var

sd,rata,banyak_data,angka1,angka2,angka3,angka4:integer;

begin

writeln('masukan nilai pertama :');

readln(angka1);

writeln('masukan nilai kedua :');

readln(angka2);

writeln('masukan nilai ketiga:');

readln(angka3);

writeln('masukan nilai keempat:');

readln(angka4);

writeln('masukan banyak data:');

readln(banyak_data);

writeln('rata-ratanya adalah: ',(angka1+angka2+angka3+angka4)/banyak_data);

sd:=((angka1-rata)*(angka1-rata)+(angka2-rata)*(angka2-rata)+(angka3-rata)*(angka3-rata)+(angka4-rata)*(angka4-rata)) div banyak_data;

writeln ('standar deviasinya adalah:', sqr(sd));

readln;

end.