C++ :

#include <iostream>
using namespace std;
bool Equals(const float*, const float*);
int main()
{
	typedef float DataSet[5];
	DataSet input, output, working;
	DataSet set[3];
	int i, j;
	for (i = 0; i < 3; i++)
	{
		for (j = 0; j < 5; j++)
			set[i][j] = 0.0f;
	}
	cout << Equals(set[0], set[1]) << endl;
	return 0;
}
bool Equals(const float* a, const float* b)
{
	bool result = true;
	for (int i = 0; i < 5; i++)
		result &= (a[i] == b[i]);
	return result;
}

Pascal :

begin
  write(1);
end.