Membuat Program mencari luas lingkaran di Pascal

Contoh program mencari luas lingkaran menggunakan Pascal:

 

Program mencari_luas_lingkaran;

uses wincrt;
const pi=3.14;
var
luas,jari : real;
begin
writeln('masukan Jari jari dari sebuah lingkaran : ');
readln(jari);
luas:=3.14*jari*jari;
writeln('maka hasil dari ',pi,' x ',jari,' x ',jari,' = ',luas:9:0);
end.