program triangulo;
var
   a, b,c:real;
   t:integer;
begin
     writeln ('ingrese el primer lado');
     readln (a);
     writeln ('ingrese el segundo lado');
     readln (b);
     writeln ('ingrese el tercer lado');
     readln (c);
if a = b and b = c then
    writeln('equilatero');
if (a = b and b <> c) or (c = a and b <> a) then
    write('isoceles');
if a <> b and b <> c then
    write('escaleno')
     end;
     readln (t);
end.