{$codepage UTF8} VAR A,B,C,Perimetro : Double; Cond : Boolean; BEGIN Writeln('Ingrese los 3 lados de un triangulo :'); Write('A=');Readln(A); Write('B=');Readln(B); Write('C=');Readln(C); Cond:=(A