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

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