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