Procedure Hitung Luas Lingkaran

1. Program menghitung luas lingkaran :
    Notasi dalam Pascal :

program Proc_Luas_Lingkaran;
uses wincrt;
var
r : integer;
l : real;
procedure Luas_Lingkaran(r : integer; var l : real);
begin
l := 3.14*r*r;
end;
begin
write(' Masukkan Jari-Jari Lingkaran : ');read(r);
readln;
Luas_Lingkaran(r,l);
write('Luas Lingkaran :',l:0:2);
end.
selamat mencoba yaa...