menghitung luas segitiga

Uses crt;

Var a,t,luas: real;

Begin

Clrscr;

Write (‘masukkan alas:’); readln(a);

Write(‘masukkan tinggi;’);readln(t);

Luas:=a*t/2;

Write(’luas=’,luas : 2:2);

Readln;

End.