4. Fazer um projeto em Lazarus que leia os coeficientes A, B e C de uma equação do segundo grau. No programa principal, calcule o valor de DELTA. E...

Para resolver esse problema, você pode seguir os seguintes passos: 1. Abra o Lazarus e crie um novo projeto. 2. Adicione um formulário ao projeto e adicione três componentes TEdit para que o usuário possa inserir os valores de A, B e C. 3. Adicione um botão ao formulário e crie um evento OnClick para ele. 4. No evento OnClick, calcule o valor de DELTA usando a fórmula DELTA = B * B - 4 * A * C. 5. Crie um procedimento que receba os valores de A, B, C e DELTA por referência e calcule as raízes da equação usando a fórmula x1 = (-B + sqrt(DELTA)) / (2 * A) e x2 = (-B - sqrt(DELTA)) / (2 * A). 6. Chame o procedimento criado no passo anterior no evento OnClick do botão e passe os valores de A, B, C e DELTA por referência. 7. Exiba as raízes da equação no programa principal. Segue abaixo um exemplo de código em Lazarus que pode ajudar: ``` procedure CalcularRaizes(var A, B, C, DELTA, x1, x2: Double); begin x1 := (-B + sqrt(DELTA)) / (2 * A); x2 := (-B - sqrt(DELTA)) / (2 * A); end; procedure TForm1.Button1Click(Sender: TObject); var A, B, C, DELTA, x1, x2: Double; begin A := StrToFloat(Edit1.Text); B := StrToFloat(Edit2.Text); C := StrToFloat(Edit3.Text); DELTA := B * B - 4 * A * C; CalcularRaizes(A, B, C, DELTA, x1, x2); ShowMessage('x1 = ' + FloatToStr(x1) + #13#10 + 'x2 = ' + FloatToStr(x2)); end; ``` Lembre-se de que este é apenas um exemplo e que você pode adaptá-lo de acordo com suas necessidades.