Циклы и условия

[superorakul]

помогите подправить а то я что-то не врубаюсь как это условие воткнуть

uses crt;
var
  m, n: Integer;
  s: LongInt;
begin
  ClrScr;
 
  Write('первое число 1 ');
  m:=1;
  repeat
    Writeln('Введите число до которого вы хотите найти квадрат ');
    Readln(n);
  until n>m;
  Write('произведение квадратов четных на промежутке от ', m, ' до ', n, ' = ');
  s:=1;
  Inc(m, 2-m mod 2);
  while m<n  do
  begin
    s:=s*Sqr(m);
    Inc(m, 2)
  end;
  Writeln(s);
 readln;
end.

Найти квадрат первых четных чисел, не равных N) квадрат нашёл а как воткнуть чтоб он считал не равные н ещё незнаю