RUMUS MEMBUAT PERSEGI

program hitung_persegi;

uses
crt;
var
s :single;
luas,kel :double;
begin
clrscr;
writeln('hitung luas & keliling persegi');
writeln(' ');
write('masukkan nilai sisi :');
readln(s);
luas:=s*s;
writeln('jumlah luas :',luas:3:2);
kel:=4*s;
writeln('jumlah keliling :',kel:3:2);
read(kel)
end.