{$codepage UTF8} VAR a,b:integer; rpt:char; BEGIN Repeat Write('Ingrese un numero : ');readln(a); Write('Ingrese un numero : ');readln(b); Writeln('La suma es : ',a+b); Write('Desea continuar con el programa [S]i o [N]o : '); readln(rpt) Until rpt in ['n','N']; END.