Программирование на 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.