В среде Lazarus создать проект для решения уравнения ах+b=с, где a,b,c - действительные числа и их задает пользователь. Для сдедующих значений:
1) a=0, b=12, c=3
2) a=7, b= -5, c=2
Большое за ответ

#include "pch.h"

#include <iostream>

using namespace std;

int main()

{

setlocale(LC_ALL, "rus");

const int dlinna = 14, dlinna2 = 9 ;

int arr[dlinna],chetnie = 0;

cout << "Введите значения массива на 14 элементов!" << endl;

for (int i = 0; i < dlinna; ) {

 cin >> arr[i];

 if (arr[i] % 2 == 0) {

  chetnie++;

 }

 i++;

}

cout << "Количество четных элементов массива  = " << chetnie << endl << endl;

int arr2[dlinna2];

int min= 2147483647, max=-2147483647;

cout << "Теперь введите значения массива на 9 элементов !" << endl;

for (int j = 0; j < dlinna2; j++) {

 cin >> arr[j];

 if(arr[j] < min) {

  min = arr[j];

 }if (arr[j] > max) {

  max = arr[j];

 }

}

cout << "Минимальный элемент массива = " << min << endl;

cout << "Максимальный элемент массива = " << max << endl;

}

Program z567;

 Var a: array [1..30] of integer;

     b: array [1..20] of integer;

     i,max,p,min:integer; s:real;

Begin

 for i:=1 to 30 do

   a[i]:=random(10)-5;

 for i:=1 to 20 do

   b[i]:=random(10);

 for i:=1 to 30 do

   write(a[i],'  ');

 p:=1;

 for i:=1 to 30 do

   if (a[i] > 0) then p:=p*a[i];

 writeln('');  

 writeln('1-ое задание: ', p);

 for i:=1 to 20 do

   write(b[i],'  ');

 max:=b[1];

 for i:=2 to 19 do

   if (b[i] > max) then max:=b[i];

 min:=b[1];

 for i:=2 to 19 do

   if (b[i] < min) then min:=b[i];

 s:=(min+max)/2;

 writeln('');  

 writeln('2-ое задание: ', s);

End.