01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Прога ищет маштаб функций

Program Laba2;
{‘®бв ўЁвм Їа®Ја ¬¬г б Їа®жҐ¤га®© Masshtab ¤«п ®влбЄ ­Ёп ¬ бив Ў 
Ё§®Ўа ¦Ґ­Ёп дг-© f(x) Ё g(x) ­  нЄа ­Ґ а §¬Ґа®¬ B Ї® д-«Ґ M=B/f(x).
‚ ®б­®ў­®© Їа®Ја ¬¬Ґ ЁбЇ®«м§®ў вм Masshtab ¤«п дг-Ё© sin(x) Ё tg(x)
ЇаЁ е<1}
uses crt;
var
   b,x,l,f,g,m1,m2,max1,max2:real;
{----------------------------}
procedure Masshtab(b1,max11,max21:real;var M1,M2:real);
begin
M1:=abs(B1/max11);
M2:=abs(B1/max21);
end;
{-----------------------------}
begin
clrscr;
     writeln('‚ўҐ¤ЁвҐ а §¬Ґа нЄа ­ ');
     readln(B);
     writeln('‚ўҐ¤ЁвҐ ЇаЁа йҐ­ЁҐ l');
     readln(l);
     x:=-10E10;
     max1:=-10E10;
     max2:=-10E10;
        repeat F:=sin(x);
               G:=sin(x)/cos(x);
               x:=x+l;
                 If max1<F then max1:=F;
                 If max2<F then max2:=G;
        until x<1;
        masshtab(b,max1,max2,m1,m2);
            writeln('Њ бив Ўл Ё§®Ўа ¦Ґ­Ё© Њ1:',M1:6:2);
      writeln('                     M2:',M2:6:2);
      readln;
      end.