Помогите пожалуйста решить задачу на Паскале

[Alex61]

Помогите пожалуйста решить задачу на Паскале:

"Вычислить функцию y=x(в квадрате) для x, изменяющегося на отрезке (-14,14) с шагом 2,0. Вывести на печать значения функции, кратные 2.

[__STDC__]

uses
	CRT;
const
	cfrom = -14;
	cto = 14;
	cstep = 2;

var
	x:integer;
begin
	clrscr;
	x := cfrom;
	while (x <= cto) do begin
		if (sqr(x) mod 2 = 0) then writeln(x:3,'^2 = ':5,sqr(x):3);
		inc(x,cstep);
	end;
	readln;
end.

?
Задание забавное... если начиная с четного числа и с шагом два, то любой квадрат будет кратен 2

[Alex61]

Спасибо большое!!