{$codepage UTF8} CONST PI=3.14159; Mensaje='Desea terminar el programa [S]i, [N]o : '; Si=['S','s']; VAR rpt:char; radio:real; BEGIN Repeat Write('Ingrese radio del circulo : ');readln(radio); Writeln('su area es : ',PI*radio*radio:10:3); Write(Mensaje);readln(rpt) Until rpt in Si; END.