area de un circulo

program area_del_circulo;
uses wincrt;
var
a,b:real;
begin
writeln('Calculo del area de un Circulo');
 writeln('introduzca valor de A');
 readln(a);
 b:=3.14*(a*a);
 write('el area del circulo es ',b:5:1 );
end.