contoh pascal program menghitung luas bujur sangkar

program bujur_sangkar;
uses wincrt;
var s,l:real;
begin
     writeln('                      ===================================');
     writeln('                      ==*Menghitung Luas Bujur Sangkar*==');
     writeln('================================================================================');
     writeln;
     writeln;
     write('Masukkan sisi bujur sangkar    = '); readln(s);
     writeln;
     l:=s*s;
     write('Maka luas bujur sangkar        = ',l:5:2);
     writeln;
     writeln;
     writeln;
     write('================================================================================');
     writeln('                      ==*RICKYSEPRIYANTO_13010241*==');
     writeln('                      ==================================');
end.