PascalABC.NET 3.5.1
begin
var start := ReadInteger('С какого числа начинаем? ');
for var i := start downto 1 do PrintLn(i*i);
end.
