turbo pascal program persegi

uses wincrt;
var
s,l,k:real;

begin
writeln('Program persegi');
write('masukkan sisi : ');readln(s);
l:=sqr(s);
k:=4*s;
writeln('luasnya : ' ,l:2:0);
writeln('kelilingnya : ' , k:2:0);
end.