Program Luas Lingkaran Menggunakan Fungsi

program luas_lingkaran;
uses wincrt;
     function luaslingkaran ( r : integer) : real;


        begin

        luaslingkaran := 3.14 * r * r;

        end;
var

   a : integer;
begin

write('masukan jari-jari:');
readln (a);
writeln ('luas lingkara:',luaslingkaran (a):0:2 );
readln;
end.

note : Program ini di gunakan di TPW 1.5