program procedure acuan menggunakan pascal

kali nie ane mw kasih sdkit ilmu tentang pascal gan,,...(ane juga blum mnguasi pascal sih,,hehehee)

nie struktur codingnya,,,,

uses wincrt;

procedure isidata(var i,j : integer);
begin
     write('panjang = ');readln(i);
     write('lebar = ');readln(j);
end;

    procedure proses (x,y : integer);
    var L : integer;
    begin
         L:=x*y;
         write('luas persegi panjang adalah ',x,'*',y,'=',L);
end;

var a,b : integer;
begin
clrscr;
isidata(a,b);
proses(a,b);
readln;
end.