{$codepage utf8} {$mode objfpc} Uses sysutils; Var a,b,c:double; cada,cadb:string; rpta:char; Begin rpta:='S'; Repeat c:=0; a:=0; b:=0; try Write('a=');readln(cada); Write('b=');readln(cadb); a:=StrTofloat(cada); b:=StrTofloat(cadb); c:=a/b; except on EConvertError do Writeln('Error datos no validos ingresados'); on EDivByZero do Writeln('Error division por cero'); on E: Exception do Writeln(E.classname,'::',E.Message); end; Writeln(c:10:10); Write('¿Desea continuar dividiendo?:'); Readln(rpta) Until rpta in ['N','n'] End.