uses wincrt;
var
s,l,k,d:real;
begin
writeln('Program persegi');
write('masukkan sisi : ');readln(s);
l:=s*s;
k:=4*s;
d:=sqrt(s*s + s*s);
writeln('luasnya : ' ,l:4:2);
writeln('kelilingnya : ' , k:4:2);
writeln('diagonalnya :', d:4:2);
end.
download
