Дан программный код. Определите результат выполнения программы. ​

p = 1

в цикле x принимает целые значения на промежутке: [-2;2) имеем:

1 - 2 - 1 + 0 + 1 после завершения цикла, что, в свою очередь, равно -1

ответ: -1

9 кг /2=4.5/2=2.250 кг. сделали два взешивания. далее к в чашку с гирьками  в 250 гр добавляем крупу до равновесия  т.е 2 кг, от третье взвешивание. 

program _1_2; uses crt; var  dlina, shirina, vysota: real; begin  clrscr;   textcolor(14);   writeln('вычисление объёма параллелепипеда.');   writeln('введите исходные данные: ');   write('длина (см) -> ');   readln(dlina);   write('ширина (см) -> ');   readln(shirina);   write('высота -> ');   readln(vysota);   writeln('объём: ',(dlina*shirina*vysota): 7: 2);   repeat  until keypressed; end.