В паскале или где? А то сделаю не там где надо
:D
А задачу написать? Я же не провидец, и не знаю что у тебя там за рабочая тетрадь
1)
Begin
var (a,b,c,d):=ReadInteger4();
Writeln(((a+b)*c)/d);
end.
2)
Begin
var a,b:real;
Readln(a,b);
a:=a*b;
Readln(b);
a:=a+b;
Readln(b);
a:=a-b;
Writeln(a);
end.
Определять высоту звука по частоте волн