Arya's Blog

Menghitung Jari-jari Lingkaran

program sigit;
uses crt;
const phi=3.14;
var
r:integer;
hasil:real;
begin
writeln('masukkan jari-jarinya');readln(r);
hasil:=phi*r*r;
writeln('hasilnya adalah',hasil);
readln;
end.