Boleetos ergometricos

1) Dado o problema abaixo e seu programa em Pascal. Determine se o programa está correto. Se tiver erros, corrija-os, para que o programa resolva corretamente o problema:
Escreva um programa que leia as medidas dos lados de um triângulo e escreva se ele é
Equilátero, Isósceles ou Escaleno. Sendo que:
- Triângulo Equilátero: possui os 3 lados iguais.
- Triângulo Isósceles: possui 2 lados iguais.
- Triângulo Escaleno: possui 3 lados diferentes.

program exercicio1; {Selecao com if} uses crt; var x, y, z : real; begin; x := 0; y := 0; z := 0; clrscr; writeln; write ('Informe a medida 1: '); readln (x); writeln; write ('Informe a medida 2: '); readln (y);1) Dado o problema abaixo e seu programa em Pascal. Determine se o programa está correto. Se tiver erros, corrija-os, para que o programa resolva corretamente o1) Dado o problema abaixo e seu programa em Pascal. Determine se o programa está correto. Se tiver erros, corrija-os, para que o programa resolva corretamente o problema:
Escreva um programa que leia as medidas dos lados de um triângulo e escreva se ele é
Equilátero, Isósceles ou Escaleno. Sendo que:
- Triângulo Equilátero: possui os 3 lados iguais.
- Triângulo Isósceles: possui 2 lados iguais.
- Triângulo Escaleno: possui 3 lados diferentes.

program exercicio1; {Selecao com if} uses crt; var x, y, z : real; begin; x := 0; y := 0; z := 0; clrscr; writeln; write ('Informe a medida 1: '); readln (x); writeln; write ('Informe a medida 2: '); readln (y);1) Dado o problema abaixo e seu programa em Pascal. Determine se o programa está correto. Se tiver erros, corrija-os, para que o programa resolva corretamente o problema:
Escreva um programa que leia as medidas dos lados de um triângulo e escreva se ele é
Equilátero, Isósceles ou Escaleno. Sendo que:
- Triângulo Equilátero: possui os 3 lados iguais.
- Triângulo Isósceles: possui 2 lados iguais.
- Triângulo Escaleno: possui 3 lados diferentes.

program exercicio1;