Програмчлалын XV онлайн тэмцээний "Уламжлал" бодлогын бодолт

bodolt

var p,q,t:array[0..100]of real;
n,i,l:integer;
s,t1:real;
begin
readln(s,t1,n);
for i:=0 to n do
read(p[i]);
q[0]:=p[0]*t1;
q[1]:=p[1]*t1;
for i:=2 to n+2 do
q[i]:=p[i]*t1+p[i-2]*s;
for i:=0 to n-1 do
t[i]:=p[i+1]*(i+1);
t[n]:=0;
t[n+1]:=0;
l:=n+2;
while t[l]+q[l]=0 do
l:=l-1;
for i:=0 to l-1 do
write((q[i]+t[i]):0:1,' ');
write((q[l]+t[l]):0:1);
readln;
end.