<em>var x1,x2,y1,y2,s:real; </em>
<em>begin </em>
<em>writeln('Введите координаты точки A'); write('X='); </em>
<em>read(x1); </em>
<em>write('Y='); </em>
<em>read(y1); </em>
<em>writeln('Введите координаты точки B'); </em>
<em>write('X='); </em>
<em>read(x2); </em>
<em>write('Y='); </em>
<em>read(y2); </em>
<em>s:=sqrt(sqr(x2-x1)+sqr(y2-y1)); </em>
<em>writeln(s);</em><span><em> </em>
<em>end.</em></span>
(1+y)*((2*x+sqrt(y)-x-y)/(y+1/(x*x-4)))
var x,y:integer;
begin
x:=3;
y:=9;
writeln((1+y)*((2*x+sqrt(y)-x-y)/(y+1/(x*x-4))));
end.
Ответ: 5.
Если Dat[k] < m, то m:=Dat[k], day:=k, где изначально m:=Dat[1]
Dat[2]<m => 9<7 - нет, значит проверяем следующий элемент
Dat[3]<m => 10<7 - нет,
Dat[4]<m => 8<7 - нет,
Dat[5]<m => 6<7 - да, значит m:=Dat[5]; day:=5;
Dat[6]<m => 7<6 - нет
Dat[7]<m => 6<6 - нет
В итоге выводится переменная day, которая после цикла равна 5