{$codepage UTF8} VAR rpta : char; a,b,area : double; BEGIN rpta:='S'; While (rpta='s') or (rpta='S') do Begin Write('Ingrese lado a : ');readln(a); Write('Ingrese lado b : ');readln(b); area:=a*b; Writeln('area = ',area:10:3); Write('Desea continuar [S] Si, [N] No : '); Readln(rpta) End; END.