Программирование на Pascal / Delphi / Лабораторная работа1 / LAB_7(2)

program lab_7;
uses crt;
var
s,t,sum,sum1,sum2:real;
procedure f(var k:real;a,b,c:real);
begin
k:=(2*a-b-sin(c))/(5+abs(c));
end;
begin
clrscr;
writeln('ђҐи Ґ¬ § ¤ зг б Ї®¬®ймо дг­ЄжЁЁ');
write('‚ўҐ¤ЁвҐ "t"- ');
read(t);
write('‚ўҐ¤ЁвҐ "s"- ');
read(s);
f(sum1,t,-2*s,1.17);
f(sum2,2.2,t,s-t);
sum:=sum1+sum2;
writeln('ЋвўҐв',sum);
readln;
readln;
end.