PL/pgSQL constants

do $$
declare
    /*
     * Menghitung konstanta pegas(K)
     *
     * F = 50 N
     * X = 10 cm
     *
     * untuk X harus di ubah menjadi satuan meter,sehingga:
     *
     * X = 0.1;
     *
     * Keterangan:
     * F = gaya yang bekerja pada pegas
     * X = pertambahan panjang pegas
     *
     * Rumus yang digunakan untuk menghitung konstanta pegas ini adalah:
     * F = K.X
     *
     * Masukan:
     *
     * F = 50 N
     * X = 0.1 m
     *
     * 50 = K * 0.1
     * dan di rubah menjadi
     * 50 = K * 1/10
     * untuk mendapatkan K, bagi 50 dengan 1/10
     * K = 50:1/10
     * Tanda bagi di ubah menjadi tanda kali
     * kemudian pecahan dibelakangnya berubah menjadi 10 per 1
     *
     * K = 50 * 10/1
     * K = 500 N/m
     *
     */
     F  numeric := 50;
     X  numeric := 10/1;
begin
    raise notice 'Jadi konstanta pegas yang di cari nilainya adalah % N/M ', F * X;
end $$;