Tugas Pascal (Function Secara Acuan)

uses crt:
function lingkaran(var a : real):real:
const
phi = 3.14;
begin
lingkaran:= phi * a*a:
end;
var
   r: real:
begin
     clrscr:
     write('Masukan Jari-Jari = '); readln(r);

     write('Luas = ',lingkaran(r):3:0);
     readln;
end.

Posted in: