Program xz;
var a,b,c,rez:real;
begin a=3; b=4; c=7;
rez:=((3*sin( a+(b/c))/((sin(c-b)/cos(c-b))+a*a))+b*c;
writeln(rez);
end;
если я правильно понял условие 1 задачи

To Magnetto & Teoden

Спасибо большое