bujur sangkar

Program Menghitung_Bujur_Sangkar;

uses wincrt;

Var
 S,Luas : Real;

Begin
 Writeln('Panjang Sisi ?');
 Readln(S);
 Luas := S*S;
 Writeln('Luas Bujur Sangkar =',Luas:9:2);
End.