program LuasPersegi;
{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   L,s:real;

begin
     write('Rumus Luas Persegi ');readln;
     write('panjang sisi persegi');readln(s);
     L:=s*s;
     write('Luas Persegi adalah..:',L:2:2);readln;

end.