contoh pascal menghitug Luas Lingkaran

program lingkaran;
uses wincrt;
var r,luas:real;
begin
     writeln('                    =====================================');
     writeln('                    =====*Menghitung Luas Lingkaran*=====');
     writeln('================================================================================');
     writeln;
     writeln;
     write('Masukkan jari-jari lingkaran = '); readln(r);
     writeln;
     luas:=3.14*r*r;
     write('Maka luas lingkaran          = ',luas:6:2);
     writeln;
     write('================================================================================');
     writeln('                      ==*RICKYSEPRIYANTO_13010241*==');
     writeln('                      ==================================');
end.