program kalkulatorstatistika;
uses wincrt;
var
a,b,c,d:integer;
e,f,g:real;
i,n:integer;
sum1:integer;
data:array [1..100] of integer;
x,y:integer;
rata,selisih,varian,sum2,sum3:real;
data1:array [1..100] of real;

begin
clrscr;
repeat
writeln('.........SELAMAT DATANG..........');
writeln;
writeln('.........diprogram kalkulator statistik................');
writeln;
writeln('anda dipersilahkan untuk memilih operasi hitungan yang diinginkan...');
writeln('silahkan memilih pilihannya');
writeln('1.penjumlahan +');
writeln('2.pengurangan -');
writeln('3.perkalian *');
writeln('4.pembagian /');
writeln('5.mencari mean');
writeln('6.mencari varians');
writeln('7.keluar');
writeln;
writeln('**************');
writeln;
writeln;
writeln('silahkan anda memilih operasi yang anda inginkan...');
readln(a);
clrscr;
case a of

1:begin
writeln('masukan angka :');readln(b);
writeln('masukan angka :');readln(c);
d:=b+c;
writeln('hasil penjumlahan =',d);readln;
end;
2:begin
writeln('masukan angka :');readln(b);
writeln('masukan angka :');readln(c);
d:=b-c;
writeln('hasil pengurangan =',d);readln;
end;
3:begin
writeln('masukan angka:');readln(b);
writeln('masukan angka:');readln(c);
d:=b*c;
writeln('hasil perkalian =',d);readln;
end;
4:begin
writeln('masukan angka:');readln(e);
writeln('masukan angka:');readln(f);
g:=e/f;
writeln('hasilpembagian =',g);readln;
end;
5:begin
sum1:=0;
write('berapa banyak data yang anda ingin masukkan?');readln(n);
writeln('silahkan memasukan data...');
i:=1;
repeat
write('data ke-',i,' ');
readln(data[i]);
inc(i);
until i>n;
i:=1;
repeat
sum1:=sum1+data[i];
inc(i);
until i>n;
write('rata-ratanya =');
writeln(sum1/n);
end;
6:begin
sum2:=0;
write('berapa banyak data yang anda masukkan?');readln(y);
writeln('silahkan memasukan data...');
x:=1;
repeat
write('data ke-',x,' ');
readln(data[x]);
inc(x);
until x>y;
x:=1;
repeat
sum2:=sum2+data[x];
inc(x);
rata:=sum2/y
until x>y;
x:=1;
repeat
selisih:=sqr(data[x]-rata);
sum3:=sum3+selisih;
inc(x);
varian:=sum3/(y-1);
until x>y;
writeln('variannya =',varian);
end;
end;
writeln('************');
writeln;
writeln('..........terima kasih..........');
writeln;
writeln('************');
readln;
until a=7 
end.