0 Fungsi Menghitung Luas

program fungsi_menghitung luas;
uses crt;
var x,y:integer;

function segitiga(x,y:integer):real;
begin
segitiga:=x*y/2;
end;

function segiempat(x,y:integer):real;
begin
segiempat:=x*y;
end;

function lingkaran(x:integer):real;
var pi:real;
begin
pi:=3.14;
lingkaran:=pi*x*x;
end;


begin clrscr;
write('Masukan X: ');readln(x);
write('Masukan Y: ');readln(y);
writeln;
writeln('Luas Lingkaran dengan jari-jari ',x,' adalah ',lingkaran(x):0:2);
writeln;
writeln('Luas Segi Empat dengan p=',x,' dan l=',y,' adalah ',segiempat(x,y):0:2);
writeln;
writeln('Luas Segi tiga dengan t=',x,' dan a=',y,' adalah ',segitiga(x,y):0:2);
readln;
end;