Ayuda Free Pascal

[JoséLuis]

Buenas noches,

Casi me da vergüenza hacer esta pregunta, de pedestre que es, pero estoy aprendiendo a programar en FreePascal (cuando era adolescente, hará unos 15 años, llegué a tener buenos conocimientos de Pascal y de C, pero después me hice de "letras" y se fueron perdiendo poco a poco) y quisiera saber por qué el siguiente programa no me da el área de una circunferencia, que es lo que yo pretendo que me dé.

program AreaCircunferencia;

uses crt;

const

pi:Real=3,1415;

var

a:Real;
b:Real;
c:Real;

begin

Writeln ('Introduzca radio del circulo');
Readln (a);
b:=a*a;
c:=b*pi;
Writeln;
Writeln ('El area del circulo es', c);
Writeln;

end.


Por cierto, otra pregunta¿Cómo puedo acentuar en FreePascal? Es decir, que el programa muestre los mensajes con "área" y "círculo" acentuados.

Muchísimas gracias por adelantado,

José Luis

[rescobar]

program AreaCircunferencia;
uses crt;
const
pi:Real=3.1415;
var
a:Real;
b:Real;
c:Real;
begin
clrscr;
Writeln ('Introduzca radio del circulo');
Readln (a);
b:=a*a;
c:=b*pi;
Writeln;
Writeln ('El area del circulo es ', c:0:2);
Writeln;
readln;
end.

[rescobar]

program AreaCircunferencia;
uses crt;
const
pi:Real=3.1415;
var
a:Real;
b:Real;
c:Real;
begin
clrscr; //te borra la pantalla CLEAR SCREEN
Writeln ('Introduzca radio del circulo');
Readln (a);
b:=a*a;
c:=b*pi;
Writeln;
Writeln ('El area del circulo es ', c:0:2);//:0:2 es para dar dor lugares decimal ya que esta varialble es flotante
Writeln;
readln;// Pausa en el programa para visualizar la repuesta del programa
end.