luas lingkaran

uses crt;
procedure segitiga(a,b,c : real);
var s,r,i: real;
begin
s := 0.5*(a+b+c);
r := (sqrt(s*((s-a)*(s-b)*(s-c))))/s;
i := 3.14*r*r;
writeln('panjang sisi   : ',s:7:2);
writeln('jari-jari      : ',r:7:2);
writeln('luas lingkaran : ',i:7:2);
end;
var
a, b, c, s, i, r : real;
begin
clrscr;
write('masukan sisi 1 : ');
readln(a);
write('masukan sisi 2 : ');
readln(b);
write('masukan sisi 3 : ');
readln(c);
segitiga(a,b,c);
readln;
end.

gambar 1

gambar 2