2*20*(16:8)*Х= 1 760 000 стрелка следствие Х= 22 000 Гц
<span>Var a, b, c, p :longint;
begin
WriteLn('Введите первую сторону треугольника a');
readLn(a);
WriteLn('Введите вторую сторону треугольника b');
readLn(b);
writeLn('Введите третью сторону треугольника c');
readLn(c);
p:=(a+b+c);
writeLn('Периметр треугольника равен ', p);
end.</span>
К сожалению могу ответить только на второй вопрос. Во втором вопросе ответ "розовый", то есть 3)