Как делать подскажите Определите маршрут, по которому идут пакеты с вашего компьютера на сайт kremlin. ru. Сколько "прыжков" составляет этот маршрут?

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

program pogoda; var t: real; begin write('t='); readln(t); if t> 10 then writeln ('хорошая погода') else begin ; writeln('плохая погода'); end; end.

program z2_65; uses crt; label a1,a2,a3,a4,a5,a6,a7; var a,s,h,rv,ro,p: real; n: integer; beginclrscr; writeln('укажите номер пункта: '); writeln('1. дана сторона треугольника.'); writeln('2. дана площадь треугольника.'); writeln('3. дана высота треугольника.'); writeln('4. дан радиус вписанной окружности треугольника.'); writeln('5. дан радиус описанной окружности треугольника.'); read(n); case n of1: begin write('a='); read(a); goto a1; end; 2: begin write('s='); read(s); goto a2; end; 3: begin write('h='); read(h); goto a3; end; 4: begin write('r='); read(rv); goto a4; end; 5: begin write('r='); read(ro); goto a5; end; elsebeginwrite('такого номера пункта нет.'); goto a7; end; end; a1: rv: =a/2; ro: =a/sqrt(3); s: =sqrt(3)*sqr(a)/4; h: =2*s/a; goto a6; a2: a: =sqrt(4*s/sqrt(3)); h: =2*s/a; rv: =a/2; ro: =a/sqrt(3); goto a6; a3: a: =2*h/sqrt(3); s: =a*h/2; rv: =a/2; ro: =a/sqrt(3); goto a6; a4: a: =2*rv; ro: =a/sqrt(3); s: =sqrt(3)*sqr(a)/4; h: =2*s/a; goto a6; a5: a: =sqrt(3)*ro; s: =(a*a*a)/(4*ro); h: =2*s/a; rv: =a/2; a6: writeln('a=',a: 2: 2); writeln('s=',s: 2: 2); writeln('h=',h: 2: 2); writeln('r=',ro: 2: 2); writeln('r=',rv: 2: 2); a7: readkey; end.

program zadacha1; var ves, rost, optves: integer; begin  write('введите массу тела');   read(ves);   write('введите рост в см');   read(rost);   optves: =rost-100;   if ves> optves then write('вам необходимо похудеть на', abs(optves-ves) );   if ves< optves then write('вам необходимо поправиться на', abs(optves-ves) );   if ves=optves then write ('ваш вес оптимальный')end.