Menghitung Luas dan Keliling Lingkaran

menghitung luas dan Keliling Lingkaran
Ketik kode di bawah ini:

---------------------------------------------------------------------------------------------------------------

program menghitung_luas_dan_keliling_lingkaran;

uses wincrt;(karena saya menggunakan turbo pascal for windows)

var

a,b,r:integer;

L,K:real;

const phi=3.14;

begin

write('masukkan jari-jari lingkaran = '); readln(r);

L:=phi*r*r;

K:=2*phi*r;

writeln('jadi luas lingkarannya adalah = ',L:0:2);

writeln('jadi keliling lingkarannya adalah = ',K:0:2);

readkey;

end.

---------------------------------------------------------------------------------------------------------------

Hasilnya akan tampil seperti ini: