valgrisa

Ответ:

program z;

var i, n, s: integer;

begin

read(n);

for i:=20 to n do s:=s+i;

write(s)

end.

Объяснение:

n >= 20 иначе программа выведет 0