Programa de Area del Circulo

program circulo;
uses crt;
var r:integer;
    a:real;
begin
    clrscr;
    write('teclea el radio del circulo: ');
    readln(r);
    a:=3.1416*(r*r);
writeln ('el area del circulo es: ',a:5:2);
readln;
end.