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.