Script Luas Lingkaran dengan Pascal

program lingkaran;
uses crt;
var r:integer;
s:real;
const p=3.14;
begin

r:=7;
s:=p*(r*r);

writeln(s);
readln;

end.