var v, v1, v2 : real;
begin
writeln ('Задайте скорость движения авто на пути 1');
readln (v1);
writeln ('Задайте скорость движения авто на пути 2');
readln (v2);
v := ( v1 + v2 ) / 2;
writeln('Средняя скорость движения по всему пути составляет : ' ,v ,' км/час');
<span>end.</span>
Умножит во всех случаях размер на пиксели, и какой ответ больше - такой и правильный
3) 1;8
Допустим черные клетки это цифра 1
Можно заархивировать файл, а затем заархивировать архив с этим файлом. И так можно проделать множество раз.