Question

Задача на паскале.
Напиши программу, которая вводит с клавиатуры натуральное число С и выводит на экран в столбик квадраты всех чётных натуральных чисел от С до 1.

Answer 1

===== PascalABC.NET =====

begin

 var C := ReadInteger('Введите натуральное число:');

 if C.IsOdd then

   C -= 1;

 Range(C, 2, -2).PrintLines

end.