Menghitung Luas Lingkaran dalam Pascal

program Menghitung_Luas_lingkaran ;

uses WinCrt;

var

      r:integer;

      L:real;

begin

      writeln;

      writeln;

      writeln('Menghitung Luas Lingkaran');             

      writeln;

      writeln('Kelompok Absen 6 s/d 10');

      writeln;

      writeln('-------********--------');

      write('Masukkan nilai jari-jari : '); readln(r);

      writeln;

      L:=22/7*r*r;

      writeln('Luas lingkaran = ',L:10:2);

      writeln;

      Writeln('-----terimaksih------');

      writeln;

      writeln;

      writeln;

      writeln;

end.

selamat mencoba..:)