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

Cara membuat Form Html untuk pemula menggunakan "pre",
Cara ini mungkin lebih simple di bandingkan dengan membuat table untuk merapihkan posisi colom dalam pembuatan suatu program,

Sebagai contoh kita bikin form nya sebagai berikut:

<pre>

<form id="form1" name="form1" method="post" action="">
</form>
Nama: <input name="nama" type="text" size="15" maxlength="15" /><br/>
Umur: <input name="umur" type="text" size="15" maxlength="15" /><br/>
Alamat: <textarea name="alamat" cols="15"></textarea><br/>
<input name="submit" type="submit" value="Submit" />
</form></pre>
=================================
hasilnya seperti gambar berikut: