Даны три числа a,b и c составьте программу на паскале которая проверяет выполнение условия a

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b,c):=ReadReal3();
write((a<b) and (b<c));
end.

£include <bits/stdc++.h>

using namespace std;

const int N = int(1e5) + 500;

int a[N], mn = 10000000, mx;

int main () {
for(int i = 1; i <= 3; i++) {
cin >> a[i];
mn = min(a[i], mn);
mx = max(a[i], mx);
}
if(a[1] == mn) {
if(a[3] == mx) {
cout << @[email protected];
return 0;
}
}
cout << @[email protected];
return 0;
}