Program Menghitung Luas Lingkaran (Bahasa Pascal)

program Mengitung_Luas_Lingkaran;
{I.S.: diberikan harga ke dalam var. diameter lingkaran sebesar 10 bertipe integer}
{F.S.: menampilkan hasil luas lingkaran}
Var
   diameter: integer;
   hasil: real;
Begin
     Diameter:= 10;
     Hasil:= 3.14 * diameter * diameter * 0.25;
     Writeln(Hasil:3:2);
     Readln;
End.