.для проф айтишников От острова Буяна до царства славного Салтана месяц 30 дней пути. Капитан корабля записывает в вахтенный журнал количество миль, пройденных за день. Составить блок - схему алгоритма для определения, в какую из трех десятидневок пройден больший путь
​

хай                                                                                                                                                                           

program seee; uses crt; var p,b,c: real; i,v: integer; beginclrscr; readln(p); writeln; writeln('mass price '); writeln; while v< > 1000 dobegin v: =v+50; writeln(v,'g ',v*p/1000: 2: 2); end; readkey; end.

1) +1 = 12) +1 = 23) +1 = 34) *2 = 65) *2 = 126) *2 = 247) +1 = 258) *2 = 50

var x1,y1,z1,x2,y2,z2,d: real;

begin

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

readln(x1,y1,z1);

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

readln(x2,y2,z2);

d: =sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)+(z2-z1)*(z2-z1));

wrileln(d);

end.