Контох Дасар Паскаль

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.
Panicky Peafowl