Question

Помогите решить задачу в Free Pascal. Необходимо написать текст и алгоритм (схему) программы. Буду очень-очень благодарнааа:**
Заданы массы некоторых двух тела m1, m2.  Тела
движутся и проходят за время t  следующие расстояния  S1 и S2 соответственно.
Вычислить импульсы тел Р1 и Р2. Если Р1< Р2, вычислить
разность этих импульсов. Если Р1 > Р2, вычислить
сумму этих импульсов. Если Р1 = Р2, вычислить
произведение импульсов.

Answer 1

 var t,m1,m2,s1,s2,p1,p2:real;
begin
write('введите массы тел');
read(m1,m2);
write('введите s1 и s2);
read(s1,s2);
write('введите время');
read(t);
p1:=m1*(s1/t);
p2:=m2*(s2/t);
if p1=p2 then write(p1*p2);
if p1<p2 then write(p1 - p2);
if p1 > p2 then write(p1 + p2);
end.