Как написать программу

[Alex11223]

Эм... Так что ли?

var i, n: integer;

begin
write('n = '); read(n);
writeLn;

for i:=1 to n do
begin
   Sleep(1000);
   WriteLn(i);
end;

end.

[Вадим Мошев]

Alex11223 всё правильно написал, НО в Паскале такое работать не будет. Чтобы это работало, надо

1. В самом верху кода написать

uses crt;

2. Слово Sleep заменить на Delay, то есть написать

Delay(1000);

[Артур707]

Спасибо большое парни!!! ))))