Program Standar Deviasi dengan Pascal

Ini syntaxnya:


uses wincrt
var s, r, mean, hitung: real;
    a : char;
    b, c, fr : integer;
    d:array[1..254] of real;
    f:array[1..254] of integer;
begin
    writeln('Pilih tipe Standar Deviasi!');
    writeln('Tekan "Y" untuk sampel!');
    writeln('Tekan "N" untuk populasi!');
    readln(a);
    hitung:=0;
    r:=0;
    if a='y' then
    begin
        writeln('Masukkan banyak kelas: ');
        readln(c);
        fr:=0;
        for b:=1 to c do
        begin
            write('Masukkan nilai tengah kelas ke-',b,': ');
            readln(d[b]);
            write('Masukkan frekuensi kelas ke-',b,': ');
            readln(f[b]);
            r:=r+d[b]*f[b];
            fr:=fr+f[b];
        end;
        mean:=r/fr;
        for b:=1 to c do
        begin
            hitung:=hitung+SQR((d[b]-mean))*f[b];
        end;
        s:=SQRT((hitung/fr));
        writeln('s = ',s);
    end
    else
    begin
        write('Masukkan banyak data: ');
        readln(c);
        for b:=1 to c do
        begin
            write('Masukkan data ke-',b,': ');
            readln(d[b]);
            r:=r+d[b];
        end;
        mean:=r/c;
        for b:=1 to c do
        begin
            hitung:=hitung+SQR((d[b]-mean));
        end;
        s:=SQRT((hitung/c));
        writeln('s = ',s);
    end;
  readln;
end.


Dipostingan berikutnya saya bakalan menjelaskan peranan variabel-variabel dan operator yang ada dalam program serta bagaimana program ini berjalan.
See ya