задачи с циклами

[bendr]

1)печатать 1000 999 998 997 996 ......
2)печатать 100 50 25 12.5.... с 8 десятичными знаками

Первую я еще сообразил как сделать,

label m1,m2,start;
var a,b:integer;
begin
start: write ('Enter num: ');
       readln (a);
       b:=0;
m1:    b:=b+1'
       write (a-b,'-');
        if a-b<=0 then goto m2;
       goto m1;
m2:    write ('done!');
       writeln (' ');
       writeln ('Press enter for restart.');
       readln;
       goto start;
end.

а вот со второй запакра вышла, помоги пожалуйста :-)

label m1,m2;
var a,b:integer;
begin
start: write ('enter num: ');
       readln (a);
       b:=2;
m1:    b:=b*2;
       write (a/b:8:3,'-');
       if a/b<=0 then goto m2;
       goto m1;
m2:    write ('done!');
       readln;
end.

вот что получается, а надо чтобы он выводи 50-25... и т.д

[Siluet]

цифры сам вводишь или над шобы комп сам выводил ?

[Siluet]

первое можно так сделать

uses crt;
var i,a,b:integer;
begin clrscr;
for i:=1000 downto 1 do begin
writeln('I=',i);
end;readkey;end.

[bendr]

первую цифру сам вводишь, а потом уже он должен сам составлять ряд

[DM_bite]

Label m1,m2,start;

Это шо такое!? Али вы в таких простых задачах метки задействовали?
1.

Program Xaxa;
var i: integer;
begin
 for i:= 1000 downto 0 do
  begin
  WriteLn(i);
  end;
  ReadLn;
  end.

2.

Program Xaxa;
var i: integer;
    s:real;
begin
 for i:= 100 downto 0 do
  begin
  s:= i/2;
  WriteLn(s);
  end;
  ReadLn;
  end.

первую цифру сам вводишь, а потом уже он должен сам составлять ряд

Надо сразу говорить точное условие задачи.

[Siluet]

от меток ваапще лучше отвыкать..

[DM_bite]

Если

первую цифру сам вводишь, а потом уже он должен сам составлять ряд

, то:

Program Xaxa;
var i,n: integer;
begin
 ReadLn(n);
 for i:= n downto 0 do
  begin
  WriteLn(i);
  end;
  ReadLn;
  end.