Question

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

Answer 1

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

Answer 2

Спасибо большое