program sederhana pascal

Dalam pembelajaran kuliah smester 1 di universitas negeri manado (UNIMA) saya mendapat tugas dari dosen mata kuliah konsep pemrograman untuk membuat program sederhana, ada banyak permasalahn ayng di sampaikan dosen untuk dapat kami selesaikan dengan mengunakan program, dan akhirnya dengan belajar kepada teman saya saya dapat membuat satu program sederhana yaitu program menghitung luas segi tiga, masi banyak program yang dapat saya buat dengan mengunakan PASKAL tetapi pada saat ini kita belajar dulu mengenai membuat program menghitung luas.
kiranya program sederhana yang saya buat ini dapat berguna kepada teman-teman yang pada saat ini sedang sulit untuk membuat tugas atau belajar membuat program mengunakan PASCAL, jika ada pertanyaan mengenai membuat program silahkan untuk memberikan komentar pada indeks komentar dibawah.




program mengitung_luas_segitiga;
uses crt;
var A,T,luas : real;

begin
        clrscr;
        write('masukan nilai alas       :'); read (A);
        write('masukan nilai tinggi     :'); read (T);
        writeln;
    
        luas :=1/2*A*T;
   
        writeln('jumlah nilainya adalah ', luas:9:2);

        readkey;
end.