Разработать программу для вычисления:
1) значения заданного арифметического выражения
2) значения заданной функции с = x^2+y^2+sin(x), при x-y=0;(x-y)^2+cos(x), при 0 и вывода на экран полученных результатов.
Значения исходных данных выбираются произвольно. Ввод исходных данных организовать любым известным вам использовать не менее двух

Звук имеет две основные характеристики – частоту и интенсивность (она же громкость) .

С частотой все просто. Звуковые волны — это механические колебания воздуха. Частота означает, сколько полных колебаний в секунду совершает звуковая волна. Единица измерения частоты – Герц (названа в честь немецкого физика) . 100 Герц – сто колебаний в секунду и т. д.
Частота звука определяет то, каким образом он звучит для нашего уха.

С громкостью дело обстоит несколько сложнее. Так как слуховой орган необычайно чувствителен, соотношение интенсивностей звука в диапазоне слышимости человека составляет 1:1013. Оперировать такими величинами довольно неудобно. Поэтому, для удобства проведения измерений, была введена относительная единица. Если представить силу звука на пороге слышимости равной 1, а все более громкие звуки выражать в десятичных логарифмах отношения их интенсивности к этому значению, то вместо соотношения 1:1013 мы получим ряд чисел от 0 до 13. Эта единица получила название Бел в честь американского ученого – изобретателя телефона Александра Белла.

Var x1,y1,x2,y2,x3,y3,r1,r2,r3:real; min,p:integer;
begin
repeat
 write('x1, y1: ');
 readln(x1,y1);
 write('x2, y2: ');
 readln(x2,y2);
 write('x3, y3: ');
 readln(x3,y3);
 r1:=sqrt(x1*x1+y1*y1);
 r2:=sqrt(x2*x2+y2*y2);
 r3:=sqrt(x3*x3+y3*y3);
 writeln('r1 = ',r1:5:2,' r2 = ',r2:5:2,' r3 = ',r3:5:2);
 if r1<r2 then min:=1 else min:=2;
 if r3<min then min:=3;
 writeln('К началу координат ближе точка № ',min);
 write('Хотите повторить? (1-да, 0-нет) ');
 readln(p);
until p<>1;
end.

Пример:
x1, y1: 3 -2
x2, y2: -4 1
x3, y3: 5 0
r1 =  3.61 r2 =  4.12 r3 =  5.00
К началу координат ближе точка № 1
Хотите повторить? (1-да, 0-нет) 1
x1, y1: 8 0
x2, y2: -3 4
x3, y3: 5 -2
r1 =  8.00 r2 =  5.00 r3 =  5.39
К началу координат ближе точка № 2
Хотите повторить? (1-да, 0-нет) 0