Algoritimos para calcular o raio.

Program Pzim ;
var
raio, area: real;
 Begin
 clrscr;
 raio:= 0; {inicializar as variaveis}
 area:= 0;
 write('informe o raio do circulo:');
 readln(raio);
 area:= 3.14 * (sqr (raio)); //pi = 3.14
  writeln('a area do circule e:' , area:6:2);
 End.