Ajuda em questão em pascal

[Visitante: Edson Matias]

A questão é:

Crie um procedimento que imprima (classifique) o tipo de um triângulo por meio da informação das medidas de seus lados. Lembre-se que (3,0 pontos):

• triângulo eqüilátero: é o triângulo que possui os três lados iguais;

• triângulo isósceles: é o que possui dois lados iguais;

• triângulo escaleno: é o que possui os três lados diferentes.

O material disponibilizado pelo curso é muito superficial e o tempo para resposta é muito curto, desde já agradeço pelo ajuda.

Não consegui nem instalar o free pascal em minha maquina.

[tolki3n]

A questão é:

Crie um procedimento que imprima (classifique) o tipo de um triângulo por meio da informação das medidas de seus lados. Lembre-se que (3,0 pontos):

• triângulo eqüilátero: é o triângulo que possui os três lados iguais;

• triângulo isósceles: é o que possui dois lados iguais;

• triângulo escaleno: é o que possui os três lados diferentes.

O material disponibilizado pelo curso é muito superficial e o tempo para resposta é muito curto, desde já agradeço pelo ajuda.

Não consegui nem instalar o free pascal em minha maquina.

Esse algoritmo você encontra até nos modelos do Pascal zim!

Mas de qualquer forma:

Program ExemploPzim ;
Var X, Y, Z: real;

 Begin
     // Solicita os valores de x, y e z
	write('Informe o valor do lado X: ');
	readln(x);
	write('Informe o valor do lado Y: ');
	readln(y);
	write('Informe o valor do lado Z: ');
	readln(z);

	// Imprime o tipo de triângulo
	if (x<=0) or (y<=0) or (z<=0) then 
	  begin
		writeln('Um triângulo não pode ter lados nulos ou negativos');
	  end 
	else if (X>(Y+Z)) or (Y>(X+Z)) or (Z>(X+Y)) then
	  begin
	  	writeln(X:1:0,', ',Y:1:0,' e ',Z:1:0,' não são lados de um triângulo.');
	  end  
	else if (x=y) and (y=z) then 
  	  begin
		write ('O triângulo é equilátero');
	  end 
	else if (x=y) or (x=z) or (y=z) then 
	  begin
		write ('O triângulo é isósceles');
	  end 
	else 
	  begin
		write('O triângulo é escaleno');
	  end;
 End.