01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / PROGON

program progonka;
uses crt;
   const n=3;
    var i:integer;
        a,b,c,f:array[1..3] of integer;
         kapa1,kapa2,mu2,mu1,s1,s2:integer;
          fi:text;
           alfa,beta,y:array[0..3] of real;
   begin
     clrscr;

     assign(fi,'c:\ucheba\tp6\progonka\moe.dat');
      reset(fi);
       readln(fi,s1,kapa1,mu1);
        for i:=1 to n-1 do
         readln(fi,a[i],b[i],c[i],f[i]);
          readln(fi,kapa2,s2,mu2);
           kapa1:=-kapa1;
            kapa2:=-kapa2;
  { •Ћ„ ЏђџЊЋ‰}
    alfa[1]:=kapa1;
     beta[1]:=mu1;
    for i:=1 to n-1 do begin
     alfa[i+1]:=-c[i]/(a[i]*alfa[i]+b[i]);
      beta[i+1]:=(f[i]-a[i]*beta[i])/(a[i]*alfa[i]+b[i]);end;
    {•Ћ„ ЋЃђЂ’Ќ›‰}
      y[n]:=(kapa2*beta[n]+mu2)/(1-kapa2*alfa[n]);
       for i:=n-1 downto 0 do
        y[i]:=alfa[i+1]*y[i+1]+beta[i+1];
        writeln('ђ…‡“‹њ’Ђ’ ‚›—€‘‹…Ќ€‰ ');
     for i:=0 to n do
      writeln('      ','y(',i,')=',y[i]:2:0);
       readln;
        close(fi);
     end.