Rumus Mencari Luas Lingkaran

Uses Wincrt;
Var phi,jari:real;
       luas:integer;
Begin
Write('Jari-jari lingkaran = ');readln(jari);
     phi:=22/7;
     luas:=phi*(jari*jari);
     Write ('Nilai Luas lingkarannya adalah ',luas:1:2);
End.

Tampilan program