Если я правильно понял задание, то вот:
var y:real; n:integer;
begin
readln(n);
repeat
y:=y+1/n;
n:=n-1;
until n=0;
writeln(y);
end.
Это взвешенный Граф. Если рёбра графа характеризуются доп. инфой,например если у всех рёбер есть вес,то он называется взвешенным
Program P1;
var x,y:real; k:integer;
begin
write('Цена товара = '); readln(x);
y:=x; k:=0;
while y<1.5*x do
begin
y:=y*1.01;
k:=k+1;
end;
writeln('k = ',k);
<span>end.</span>