Menghitung jari - jari, luas dan keliling lingkaran dalam pascal

selamat malam, hari ini saya akan membagikan cara mencari/menghitung jari - jari, luas dan diameter lingkaran jika diketahui diameternya dalam pascal

uses crt;
var d :integer;
begin
clrscr;
writeln('==LINGKARAN==');
write('Masukkan diameter : '); readln(d);
writeln('Jari-jari = ', d/2:0:2);
writeln('Luas = ',0.25*3.14*d*d:0:2);
writeln('Keliling = ', 3.14*d:0:2);
readkey;
end.