Мне надо с решением. цикл в фрагменте программы p: =2; repeat p : =p*0.1 until p< 0.1; будет исполнен?

Repeat - это цикл с пост условием то есть в первый раз всё равно выполнится. Теперь разберём цикл, он будет выполнять это действие
(p:=p*0.1) пока (p) не станет меньше 0.1 , теперь работаем в теле цикла, (p) изначально равен двум по этому получаем p:=2*0,1; получаем p:=0,2 проверяем условие 0,2<0,1  нет повторяем второй раз цикл, теперь p:=0,2 а не 2 как было в первый раз p:=0,2*0,1 p:=0,02 проверяем условие
0,02<0,1  да меньше цикл прерывается и (p) остаётся равным 0,02

5 раз.

Объяснение:

В заголовке цикла указываются два значения. Первое значение присваивается так называемой переменной-счетчику, от этого значения начинается отсчет количества итераций (повторений). Отсчет идет всегда с шагом равным единице. Второе значение указывает, при каком значении счетчика цикл должен остановиться. Другими словами, количество итераций цикла определяется разностью между вторым и первым значением плюс единица.

program cycle;

var a,k:integer;

begin

 for k:= 1 to 5 do

   writeln(k);

end.

var x1,y1,x2,y2,x3,y3,x4,y4:integer;

N1,N2:real;

begin

writeln('Введите координаты первой точки - ');

readln(x1,y1);

writeln('Введите координаты второй точки - ');

readln(x2,y2);

writeln('Введите координаты третьей точки - ');

readln(x3,y3);

writeln('Введите координаты четвертой точки - ');

readln(x3,y3);

n1:= sqrt( (x3-x1) * (x3-x1) + (y3 - y1) * (y3-y1) );

n2:= sqrt( (x4-x2) * (x4-x2) + (y4 - y2) * (y4-y2) );

writeln('Длина первой диагонали - ',n1);

writeln('Длина второй диагонали - ',n2);

readln;

end.

Держи.