Tugas Pascal (Function Secara Nilai)

uses crt:
function lingkaran(a :real):real;
begin
lingkaran:=3.14*a*a:
end;

var
   r : real:
begin
clrscr;
     write('Masukan Nilai Jari = '); readln(r);
     writeln('Nilai Luas = ',lingkaran(r):3:2);
     readln:
end.

Posted in: