MENGHITUNG LUAS LINGKARAN DALAM PROGRAM PASCAL

Perogram MenghitungLuasLingkaran;
uses crt;
const
phi=3.14;
var
L,r.real;
begin
  clrscr;
  writeln('Program Menghitung Luas Lingkaran');
  write('input jari jari lingkaran:');readln(r);
  L:=phi*r*r;
  writeln('Luas Lingkaran:',L:2:2);
  readln;
end.