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

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

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