Вывести на экран все четные числа от 1 до n паскаль

//pascalabc.net

//версия 3.4.2

begin

range(1,readinteger('n='(x-> x.iseven).println;

end.

Использовать чертежник алг  нач опустить перо сместиться на вектор (0,4) сместиться на вектор (-1,-1) поднять перо сместиться на вектор (4,-3) опустить перо сместиться на вектор (-2,0) сместиться на вектор (2,2) сместиться на вектор (0,2) сместиться на вектор (-2,0) поднять перо сместиться на вектор (3,0) опустить перо сместиться на вектор (2,0) сместиться на вектор (-2,-2) сместиться на вектор (2,0) сместиться на вектор (-2,-2) поднять перо сместиться на вектор (5,0) опустить перо сместиться на вектор (0,4) сместиться на вектор (-2,-3) сместиться на вектор (2,0) поднять перо сместиться на вектор (1,-1) опустить перо сместиться на вектор (2,0) сместиться на вектор (0,2) сместиться на вектор (-2,0) сместиться на вектор (0,2) сместиться на вектор (2,0) поднять перо сместиться на вектор (3,0) опустить перо сместиться на вектор (-2,-2) сместиться на вектор (0,-2) сместиться на вектор (2,0) сместиться на вектор (0,2) сместиться на вектор (-2,0) поднять перо сместиться на вектор (3,-2) опустить перо сместиться на вектор (2,4) сместиться на вектор (-2,0) сместиться на вектор (3,0) опустить перо сместиться на вектор (0,-4) сместиться на вектор (2,0) сместиться на вектор (0,2) сместиться на вектор (-2,0) сместиться на вектор (2,0) сместиться на вектор (0,2) сместиться на вектор (-2,0) поднять перо сместиться на вектор (3,-4) опустить перо сместиться на вектор (2,2) сместиться на вектор (0,2) сместиться на вектор (-2,0) сместиться на вектор (0,-2) кон