viskas ciki, veikia kaip laikrodukas :)

"zZz" <zZz@zirzilia.lt> wrote in message 
news:g0rjlh$76g$1@trimpas.omnitel.net...
> var
>  n, i :longint;
>  x :array[1..100] of longint;
> begin
>  n:=0;
>  writeln('Seka:');
>  repeat
>    n:=n+1;
>    read(x[n]);
>    x[n]:=(-1)*x[n];
>  until x[n]=0;
>  writeln('Pradine seka:');
>  for i:=1 to n-1 do write((-1)*x[i],' ');
>  writeln('Gauta seka:');
>  for i:=1 to n-1 do write(x[i],' ');
> end.
>
>