mencari Luas Segitiga

Program menghitung_luas_segitiga;

uses crt;

var
a,b,c:integer;
s,luas:real;

begin
clrscr;
writeln (' INI ADALAH PROGRAM MENGHITUNG LUAS SEGITIGA ');
writeln (' Oleh Dian Aliza Pratidina 070804 IV B ');
writeln;
write (' masukkan a : '); readln (a);
write (' masukkan b : '); readln (b);
write (' masukkan c : '); readln (c);

s:=(a+b+c)/2;
writeln;
writeln (' didapat nilai s adalah= ',s:2:2);

luas:=sqrt(s*(s-a)*(s-b)*(s-c));
writeln;
writeln (' sehingga luas segitiga adalah= ' , luas:2:2);
writeln ;
writeln (' terima kasih sudah menggunakan program ini');
readln;
end.