“Contoh Dasar Pascal” Kod odpowiedzi

Contoh Dasar Pascal

program Luas_Lingkaran;
const
    pi=3.14;
var
    r           : real;
    luas        : real;
begin
    write ('Masukan Jari-jari = ');read(r);
    luas:=pi*r*r;
    writeln('Luas     = ',luas:4:2);
end.