Referensi Bahasa Pascal untuk mencari luas lingkaran

uses WinCrt;
Var
Pilihan :byte;
R,Luas :real;

Begin
ClrScr;
WriteLn('Masukkan jari-jari Lingkaran?'); ReadLn(R);
Luas:=22/7*R*R;
WriteLn('Luas Lingkaran=',Luas);
End.