PROGRAM HITUNGM LUAS DAN KELILING LINGKARAN

PROGRAM HITUNG_LUAS_LINGKARAN;

USES crt;

VAR

jari,pi :single;
luas,keliling :double;
begin
pi:=3.14;
luas:=0;
keliling:=0;
clrscr;
writeln('PROGRAM HITUNG LUAS DAN KELILING LINGKARAN');
writeln('masukan nilai jari :');
readln(jari);
writeln('masukan nilai pi :');
readln(pi);
luas:=pi*jari*jari;
writeln('jumlah luas :',luas:3:2);
readln(luas);
keliling:=2*pi*jari;
writeln('jumlah keliling :',keliling:3:2);
readln(keliling);
END.