fork download

copy

program gr10(input,output);
var i,n,p,t : integer;
    a : array [1..100000] of integer;
 
begin
p := 1;
readln(n);
 for i := 1 to n do read(a[i]);
 readln;
 for j := 1 to n do
  begin
   for i := 2 to n do
    if (a[i - 1]>0) and (a[i]<0) then 
      begin
       t := a[i - 1];
       a[i - 1] := a[i];
       a[i] := t;
       p := p + 1;
      end;end;
 
   writeln(p,' ');
   writeln(a[1],' ');
   writeln(a[n])
end.   

Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(10,8) Error: Identifier not found "j"
prog.pas(10,6) Error: Ordinal expression expected
prog.pas(10,6) Error: Illegal counter variable
prog.pas(24,7) Fatal: There were 3 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty