Program Menghitung luas segitiga

Program menghitung luas segitiga siku-siku;
Uses crt;
Var A,T :real;
Begin
    Clrscr;
    Write(‘Nilai Alas:’);
    Readln(A);
    Write(‘Nilai Tinggi:’);
    Readln(T);
    Writeln(‘luas segitiga siku-siku adalah:’,A*T:0:2);
    Readln;
End.