Pascal abc. подсчитать разность первых 23-х целых положительных чисел. (с счетчиком for ) или топо того

Var
i,r:integer;
begin
for i:=1 to 23 do
r:=r-i;
writeln('разность разность первых 23-х целых числе: ',r);
end.