Bagaimana cara menulis procedure dan function pada pascal

uses crt;
var a,b,c,d,x : real;
//function

procedure msk; {MSK merupakan nama dari procedure input}

begin
        writeln('From radenrakha.blogspot.com');
        readln(a);
        readln(b);
end; {Akhir program procedure}


function jumlah(a,b : real) :real; {Variable A dan B merupakan variable global}
begin
                jumlah := a+b;
end; {Akhir program function}


begin

        clrscr;
        msk;
        (X merupakan variable baru untuk menampung dari function)
        x := jumlah(a,b);
        writeln('Hasil = ', x );
        readkey;

end.

Note: Jika ada yang tidak mengerti silahkan hubungi saya