PROGRAM HITUNG LUAS DAN KELILING PERSEGI

PROGRAM HITUNG_LUAS_PERSEGI;

USES crt;

VAR

sisi1,sisi2 :single;
luas,keliling :double;
begin
sisi1:=0;
luas:=0;
keliling:=0;
clrscr;
writeln('PROGRAM HITUNG LUAS DAN KELILING PERSEGI');
writeln('masukan nilai sisi1 :');
readln(sisi1);
writeln('masukan nilai sisi2 :');
readln(sisi2);
luas:=sisi1*sisi2;
writeln('jumlah luas :',luas:3:2);
readln(luas);
keliling:=4*sisi1;
writeln('jumlah keliling :',keliling:3:2);
readln(keliling);
END.