pascal mencari luas lingkaran

program luaslingkaran;

uses crt;
const
phi = 3.14;
var
r : integer;
L : real;
BEGIN
clrscr;
write('masukkan jari-jari: ' );readln (r);
L:=phi*r*r;
writeln( 'Luas lingkaran adalah= ',L:0:2);
readln;
END.