Programa para calcular a àrea de um circulo

Program calarea ;

var area:real;

    raio:integer;

Begin

  write ('Introduza o raio -> ');

  Readln (raio);

  area:=pi*(raio*raio);

  writeln;

  Writeln ('A área é: ',area:8:3);

  readln

End.