Тут все зависит от твоего задания если в конце высказывания стоит точка то объем равен 37×2байта
За одно повторение без Команды1 он смещается на (1+1,3-2) = (2,1)
За 3 повторения он сместится на (2*3, 1*3) = (6,3)
Последняя команда сместит его в (6+3, 3+9) = (9,12)
Чтобы из 9 и 12 за три повторения сделать 0 и 0 ему нужно смещаться на (-3, -4)
Вариант 3
В) сохранил файл на рабочий стол. P.S. Это же необязательно даже не нужно
Begin Randomize;
writeln('Для молодежи: ',Random(100)+1);
writeln('Для взрослых: ',Random(100)+101);
writeln('Для пенсионеров: ',Random(50)+201);
<span>end.</span>