Может быть так:
1тепловоз отцепляет свои 2 вагона.Затем 1тепловоз заезжает с 1 вагоном в тупик. Оставшиеся вагоны 2 тепловоз толкает вперед, давая 1тепловозу выехать позади него. Потом 2 тепловоз сдает назад, завозит 2 вагона 1-го тепловоза в тупик и едет вперед. Когда 2 тепловоз проедет, 1тепловоз возвращается и забирает свои 2 вагона
Uses System;
var x: real;
{ процедура функция }
function y( x: real): real;
var a,b,c: real;
begin
a:=2.8; b:= -0.3; c:=4;
if x<1.2 then Result:=a*Sqr(x)+b*x+c
else if x>1.2 then Result:=(a+b*x)/Sqrt(x*x+1)
else Result:=a/x+Sqrt(x*x+1);
end;
{ основная программа }
begin write('Задайте значение x ');
readln(x);
writeln('Значение функции y = ',y(x));
end.
<span>
</span>