1. Сколько раз выполниться тело цикла a1: a:3: x:=0; for 1-5 to 10 do b:6; repeat begin while ab do x:=x+i; ba+a: until x<8; x:=x-2; end;

Для выполнения цикла требуется четыре раза. В данном коде задан цикл "for", который будет выполняться от 1 до 10 с шагом 5, а также вложенный цикл "repeat" с условием "while". В данном контексте тело цикла будет выполнено 4 раза: при i=1, i=6, i=7 и i=8.