Menghitung Luas Segitiga Sama Kaki Menggunakan Pascal

program Luas_Segitiga_Sama_Kaki;
uses crt;

var
a,t:integer;
luas:real;

begin
clrscr;
        textcolor(lightgreen);
        writeln('======= ^^^^^^^^^^^^^^^^^^^^ ======');
        writeln('=======   Tugas Pascal  3    ======');
        writeln('===== Luas Segitiga Sama Kaki =====');
        writeln('======= ____________________ ======');
        textcolor(lightcyan);
        write('masukan nilai alas = ');
        readln(a);

        write('masukan nilai tinggi = ');
        readln(t);
        luas:= (a*t/2);

        write(' luas segitiga sama sisi = ',luas:0:2);
        write(' luas segitiga sama sisi = ',round(luas));
        write(' luas segitiga sama sisi = ',trunc(luas));
        readln;
end.