{
   Programa que verifica se um triangulo é
   equilatero, isoceles ou escaleno.
}
program triangulos;
var
   a, b, c : real;
begin
   writeln('Digite as medidas dos lados de um triangulo');
   writeln;
   write('a: ');
   read(a);
   write('b: ');
   read(b);
   write('c: ');
   read(c);

   if (a = b) and (a = c) then
      writeln ('Triangulo equilatero')
   else
      if (a = b) or (a = c) or (b = c) then
	 writeln ('Triangulo isoceles')
      else
	 writeln ('Triangulo escaleno');
end.