Question

написать программу которая вычисляет значение выражения y= 1+12+13...+1n при заданом n

Answer 1

Program (любое название);
Var y,n:integer;
begin
read(n);
y:=n+1;
write(y);
end.
Вроде так