Запишите условия на языке Паскаль. 1) Величина Х – положительна 2) Число Y - неотрицательно 3) 0 < X < 5 4) X равно 10 5) Числа X и Y – отрицательные 6) X (- 5; 5 ] 7) X > 0 , Y < 4 8) X кратно 3 9) X не делится на

#include <iostream>
#include <cmath>
using namespace std;
 
int main()
{
    double a;
    double b;
    double c;
    double x;
    cout << "Введите значение a: ";
    cin >> a;
    cout << "Введите значение b: ";
    cin >> b;
    cout << "Введите значение c: ";
    cin >> c;
    if((b*b - 4*a*c) >= 0) //Если дискриминант больше или равен 0
    {
        x = ( -1*b + sqrt(b*b - 4*a*c) ) / (2 * a);
        cout << "Первый корень равен " << x << endl;
        x = ( -1*b - sqrt(b*b - 4*a*c) ) / (2 * a);
        cout << "Второй корень равен " << x << endl;
    }
    else
    {
        cout << "Дискриминант меньше 0, нет вещественных корней." << endl;
    }
 
    return 0;
}

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив [',8,',',7,'] ***');
  var a:=MatrRandom(8,7,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  for var i:=0 to a.RowCount-1 do begin
    a.SetRow(i,a.Row(i).Sorted.ToArray)
    end;
  Writeln('*** Результирующий массив ***');
  a.Println(4)  
end.

Пример
*** Исходный массив [8,7] ***
 -45 -24  26  38 -83 -97  77
  15 -68  80 -47   3 -61 -52
 -71  70 -52  46  70  59 -15
 -66 -20 -32  82  63   1  76
  93 -99 -38  22  83 -36 -42
  53  17 -19  -7  47  12 -58
  53  21  40 -88 -89  65  80
 -73 -16 -78 -62   3  18 -79

*** Результирующий массив ***
 -97 -83 -45 -24  26  38  77
 -68 -61 -52 -47   3  15  80
 -71 -52 -15  46  59  70  70
 -66 -32 -20   1  63  76  82
 -99 -42 -38 -36  22  83  93
 -58 -19  -7  12  17  47  53
 -89 -88  21  40  53  65  80
 -79 -78 -73 -62 -16   3  18