program mda;

var
intA,intB,n:integer;

begin
writeln('Vvedite n');
readln(n);

for intA:=-n to n do
for intB:=-n to n do begin
if 2*intA-intB*intB-4=0 then writeln('y = ',intA,' x = ',intB);
end;

readln;
end.

Vvedite n
5
y = 2 x = 0
y = 4 x = -2
y = 4 x = 2

Vvedite n
10
y = 2 x = 0
y = 4 x = -2
y = 4 x = 2
y = 10 x = -4
y = 10 x = 4

#include <iostream>

using namespace std;

void main(void)
{
int n;
setlocale(0,"");
cout << "Enter n"<<endl;
cin >>n;

int x,y =n;

for (y=-n;y<=n;++y)
{
for (x=-n;x<=n;++x)
{
	if (2*y-x*x-4==0) { cout<<"y = "<<y<<" x = "<<x<<endl;}
}
}

system("pause");
}

Программа(тут пока просто проверил работают модули или нет):

Program Nakol;
uses
  mas1,mas2;
Begin
  for m:=1 to 7 do
      write(mas1[m],' ');
  writeln;
  writeln;
  for n:=1 to 9 do
      write(mas2[n],' ');
  writeln;
  writeln;
end.

МОДУЛЬ 1

unit mas1;
interface
   Var mas1:array[1..7] of byte;
       m:byte;
implementation
begin
  for m:=1 to 7 do
     mas1[m]:=random(m);
end.

МОДУЛЬ 2

unit mas2;
interface
   Var mas2:array[1..9] of real;
       n:byte;
implementation
begin
  for n:=1 to 9 do
     mas2[n]:=(n*n)/2;
end.