Program menghitung luas dan keliling persegi

udah lama nih ga posting,, maklum sibuk kuliah, heheh, oh iya sekarang saya akan posting tentang cara membuat program pascal, berikut coding dan cara membuat program mengitung luas dan keliling persegi

1. masuk ke aplikasi dev-pascal dan buat project baru dengan berisikan coding seperti berikut

program KdanL_persegi;
var
       sisi , luas , keliling : integer;
begin
       write('panjang sisi  : '); readln(sisi);
       luas        :=sisi*sisi ;
       keliling    :=sisi+sisi+sisi+sisi;
       writeln('Luas persegi  : ',Luas, ' cm');
       write('Keliling persegi  : ',Keliling, ' cm');
       readln;
end.

dan hasilnya akan seperti berikut;



Semoga artikel Program menghitung luas dan keliling persegi bermanfaat bagi Anda.