Luas Segitiga

Program luas_segitiga;
Uses Crt;
Var
Alas,tinggi,luas:real;
Begin
Clrscr;
writeIn;
Write(‘masukkan alas ? ’);readln(alas);
Write(‘masukkan tinggi ? ’);readln(tinggi);
Luas:=0.5*(alas*tinggi);
Writeln(‘luas segitiga adalah’,luas:2:0,’cm’);
Readln;
End.