Дано начальное положение автомобиля на координатной прямой – A (одна клетка – 1 км.). Затем автомобиль начал движение. Сначала он двигался со скоростью v1 км/ч вправо n1 часа, затем v2 км/ч влево n2 часа. Найти конечное положение автомобиля.​

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end. 

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.

скор передачи=объём файла/время,отсюда  объём файла =скорость*время,т.е. 512000 * 16=8192000 бит,затем преводим все в кбайты: 8192000/8/1024=1000 кбайт