Сколько существует пар чисел Х и У от 1 до 1000, для которых Х(в квадрате) + У(в квадрате) делится на 49? — Pascal(Паскаль)

uses crt;
var x,y,z:longint;
    k:integer;
begin
clrscr;
writeln('Количество пар чисел от 1 до 1000, сумма квадратов которых кратна 49:');
k:=0;
for x:=1 to 1000 do
for y:=x+1 to 1000 do
if (x*x+y*y) mod 49=0 then k:=k+1;
write('k=',k);
readln
end.