Напишите программу по информатике (в виде легкой задачи по физике 7 класа)

var v1,v2,th,tm,s:real;

begin

writeln('Из городов А и Б навстречу друг другу одновременно выехали два автомобиля. ');

writeln('Зная скорость автомобилей и время, через которое они встретились,');

writeln('найти расстояние между городами. ');

writeln('----- Дано -----');

write('Введите скорость первого автомобиля (км/ч): '); readln(v1);

write('Введите скорость второго автомобиля (км/ч): '); readln(v2);

write('Введите время, через которое они встретились (часы минуты, вводите через пробел): '); readln(th,tm);

writeln('----- -----');

s := (v1 + v2) * (th + tm/60);

writeln('Расстояние между городами равно ', s:0:2, ' км. ');

end.