Как можно понять,что между Любови По одну

var
V1, V2, T, S: real;

begin
writeln('Введите скорости автомобилей (в км/ч):');
write(' V1 = ');
readln(V1); { <-- вводим скорость первого автомобиля }
write(' V2 = ');
readln(V2); { <-- вводим скорость второго автомобиля }
writeln('Введите расстояние между автомобилями (в км):');
write(' S = ');
readln(S); { <-- вводим начальное расстояние }
writeln('Введите время удаления автомобилей (в часах):');
write(' T = ');
readln(T); { <-- вводим время T удаления автомобилей }
V1 := V1 + V2; { <== скорость удаления автомобилей }
S := S + V1 * T; { <== расстояние через T часов удаления }
writeln;
writeln('Расстояние между автомобилями через ', T, ' часов:');
writeln(' S = ', S:0:3, ' км');
readln
end.

var
X, A, Y, B: real;

begin
writeln('Сколько у вас шоколадных конфет(в килограммах)?');
readln(X); { <-- Вводим вес шоколадных конфет }
writeln('Какая стоимость этих конфет?');
readln(A); { <-- Стоимость шоколадных конфет }
writeln('Сколько килограмм ирисок вы имеете?');
readln(Y); { <-- Вводим вес ирисок }
writeln('Какая стоимость ирисок?');
readln(B); { <-- Вводим стоимость ирисок }
writeln;
A := A / X; { <-- цена 1 кг шоколадных конфет }
writeln('Цена(в рублях) 1 кг шоколадных конфет: ', A:0:2);
B := B / Y; { <-- цена 1 кг ирисок }
writeln('Цена(в рублях) 1 кг ирисок: ', B:0:2);
A := A / B; { <-- отношение двух цен }
writeln('Шоколадные конфеты дороже ирисок в ', A, ' раз');
readln
end.