PascalABC.NET
begin
var C := ReadInteger('Введите натуральное число:');
if C.IsOdd then
C -= 1;
Range(C, 2, -2).PrintLines
end.
PascalABC.NET
begin
var C := ReadInteger('Введите натуральное число:');
if C.IsOdd then
C -= 1;
Range(C, 2, -2).PrintLines
end.