Var a, b, c: integer;begin readln(a, b, c); if (a + b <= c) or (b + c <= a) or (a + c <= b) then writeln('Does not exist') else if(a = b)and(b = c) then writeln('Equilateral') else if(a = b)or(b = c)or(a = c) then writeln('Isosceles') else writeln('Versatile') end.
