Contoh Program Menghitung Luas Segiempat

program menghitung_luas_segi_empat;
uses wincrt;
var S,L:real;
begin
     writeln;
     writeln('========================================');
     writeln('   Program Menghitung Luas Segi Empat   ');
     writeln('========================================');
     writeln('              Lia Septiani           ');
     writeln('========================================');
     writeln;
     write('Masukan Nilai Sisi  : ');readln(S);
     L:=S*S;
     writeln('Luas Segi Empat   : ',L:0:2);
end.



Hasil programnya
1. masukan nilai sisi 

 2. hasil dari penjumlahan