You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
60 lines
837 B
60 lines
837 B
var a,b,c,d,e,f,g,i,j,f,begi,k,t;
|
|
PROCedURe p;
|
|
bEgIn
|
|
if j=0 then i:=a;
|
|
if j=1 then i:=b;
|
|
if j=2 then i:=c;
|
|
if j=3 then i:=d;
|
|
if j=4 then i:=e;
|
|
if j=5 then i:=g;
|
|
|
|
end;
|
|
|
|
procedure q;
|
|
begin
|
|
if j=0 then a:=i;
|
|
if j=1 then b:=i;
|
|
if j=2 then c:=i;
|
|
if j=3 then d:=i;
|
|
if j=4 then e:=i;
|
|
if j=5 then g:=i;
|
|
|
|
end;
|
|
|
|
begin
|
|
|
|
a:=0;
|
|
begi:=1;
|
|
while begi#6 do
|
|
begin
|
|
if begi#0 then read(t);
|
|
k:=begi;
|
|
f:=k;
|
|
if k>0 then f:=k+1;
|
|
while k>0 do
|
|
begin
|
|
j:=k-1;
|
|
call p;
|
|
if i>t then
|
|
k:=1;
|
|
if i<=t then
|
|
begin
|
|
j:=k;
|
|
call q;
|
|
end;
|
|
k:=k-1;
|
|
f:=f-1;
|
|
end;
|
|
j:=f;
|
|
i:=t;
|
|
call q;
|
|
write(a);
|
|
write(b);
|
|
begi:=begi+1;
|
|
end;
|
|
write(b);
|
|
write(c);
|
|
write(d);
|
|
write(e);
|
|
write(g);
|
|
end. |