LISTA03_EX06 2014/02

//ALUNO: Luiz Henrique Forino
//PROGRAMAÇÃO I, PROFESSOR PX
//2014/02

Program AREA_CIRCULO ;
const pi = 3.14;
var r, area :real;
var op:char;

Begin
  r := 0;
  area := 0;
  repeat
    clrscr;
    writeln ('Digite o valor da area: ');
    readln (r);
    area := pi * sqrt(r);
    writeln ('Area: ', area);
    writeln ('Deseja calcular mais áreas? Sim (s) ou não (n).');
    readln (op);
  until op = 'n';
  clrscr;
  writeln ('Programa encerrado.');

End.