Var sum: real; x,n: integer; begin readln(n); begin sum: =0; for x: =1 downto 1/n*n do sum: =sum+x; end; writeln(sum); end. в чём проблема? подскажите .

в цикле for значения x должны быть типа integer, а деление автоматически дает real. +  ко всему 1/n*n  всегда будет давать единицу, т к это все равно что n/n. Что прога делать должна?

Просто нужно заменить integer на real из-за деления