Luas Lingkaran.pas

Silahkan bagi orang2 yang ingin mencari referensi program TPW bisa dicari di tempat ini!!Progrma dapat dipesan sesuai keinginan tinggal kirim aja ke facebook saya denagan alamat iprasysj@gmail.com

program Rata_rata_test;
uses wincrt;
var
pi : real;
r,L : real;

begin
write('jari-jari lingkaran = ');
read(r);
pi:= 22/7 ;
L:=pi*sqr(r);
writeLn('Luas Lingkarannya adalah ',L:2:2);
end.