program lingkaran

uses wincrt;
var
r, luas, keliling : integer;
const phi = 3.14:real;
begin
write('masukkan jari-jari:');readln(r);
L := phi*r*r;
write('luasnya =', luas);
k := 2*phi*r;
write('kelilingnya =', keliling);
readln;
end.