Решить в free pascal. необходимо написать текст и алгоритм (схему) программы. буду - : ** заданы массы некоторых двух тела m1, m2. тела движутся и проходят за время t следующие расстояния s1 и s2 соответственно. вычислить импульсы тел р1 и р2. если р1< р2, вычислить разность этих импульсов. если р1 > р2, вычислить сумму этих импульсов. если р1 = р2, вычислить произведение импульсов.
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.