RUMUS MEMBUAT LINGKARAN

program hitung_lingkaran;

uses
crt;
var
r,pi :single;
luas,kel :double;
begin
pi:=3.14;
clrscr;
writeln('hitung luas & keliling lingkaran');
writeln(' ');
write('masukkan nilai jari2 :');
readln(r);
writeln('masukkan nilai pi :',pi:3:2);
luas:=2*pi*r*r;
writeln('jumlah luas :',luas:3:2);
kel:=pi*2*r;
writeln('jumlah keliling :',kel:3:2);
read(kel)
end.