membuat progam perhitungan dengan lazarus

Assalamualaikum wr.wb

                Pada kesempatan kali ini saya akan memberikan contoh penulisan script untuk membuat progam penghitung luas dan keliling sebuah segitiga menggunakan aplikasi lazarus langsung saja:

VAR

Luas, Keliling, Alas, Tinggi : REAL;

begin

     write ('Alas = ');

     readln(Alas);

     write('Tinggi = ');

     readln(Tinggi);

     Luas := Alas * Tinggi;

     Keliling := (1/2 * Alas * Tinggi);

     writeln;

     writeln('Luas = ', Luas:3:1);

     writeln('Keliling = ', Keliling:3:1);

     readln;

    END.                    

 Itu apabila saya memasukan nilai alas dan tinggi nya 12,tapi jika anda memasukan angka yang berbeda maka hasilnya juga akan berbeda.

Semoga bermanfaat terima kasih

Wasalamualaikum wr.wb