Var
x: real;
begin
readln(x);
write('y = ');
if (x < -7) then write(7)
else if (x < 0) then write(-x)
else if (x <= 5) then writeln(x)
else write(5);
<span>end.</span>
................
a:=38;
b:=a+9;
a:=b-a;
writeln(a);
writeln(b);
.................
Ответ: a = 9, b = 47.
Объяснение: дано начальное значение 38. Переменной B присвоить значение a+9, то есть 38+9 = 47. Из этого следует, что b = 47. Переменной a присвоить значение b-a, то есть 47-38 = 9. Из этого следует, что a = 9.
1)c;2)b;3)a;4)d;) вот все правильное
за тоже самое время что и туда только + 2 раза скорость течения (один раз будет скорость без течения, 2 раза против течения)