fork download

copy

program px(input,output);
type list=array [1..6] of integer;
var
 d,e : list; ii : integer;
 
procedure merge(var a,b,c,e : list;
fa,la,fb,lb,fc : integer;
var lc : integer); forward;
procedure mergesort(var a,e : list;
fa, la : integer);
var b : list; i, mid : integer;
begin
if fa<la then
begin mid := (fa + la) div 2;
mergesort(a,e, fa, mid);
mergesort(a,e, mid+1, la);
merge(a, a, b,e,fa, mid, mid+1,
la, fa, la);
for i := fa to la do a[i]:=b[i]
end
end;
 
procedure merge(var a,b,c,e : list;
fa,la,fb,lb,fc : integer;
var lc : integer);
var ia, ib, ic,kk,tt : integer;
begin
ia := fa; ib := fb; ic := fc; kk:=fc;
repeat
if a[ia]<b[ib] then
begin tt:=e[kk];e[kk]:=e[ia];e[ia]:=tt; c[ic]:=a[ia]; ia:=ia+1;kk:=kk+1 end
else
begin tt:=e[kk];e[kk]:=e[ib];e[ib]:=tt; c[ic]:=b[ib]; ib:=ib+1;kk:=kk+1 end;
ic := ic+1
until (ia>la) or (ib>lb);
for ia := ia to la do
begin tt:=e[kk];e[kk]:=e[ia];e[ia]:=tt; c[ic]:=a[ia]; ic:=ic+1;kk:=kk+1 end;
for ib := ib to lb do
begin tt:=e[kk];e[kk]:=e[ib];e[ib]:=tt; c[ic]:=b[ib]; ic:=ic+1; kk:=kk+1 end;
lc := ic-1
end;
 
begin
readln(N);
for ii:=1 to N do read(d[ii]); readln;
mergesort(d,e,1,N) 

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(44,9) Error: Identifier not found "N"
prog.pas(44,10) Error: Illegal expression
prog.pas(45,16) Error: Identifier not found "N"
prog.pas(46,18) Error: Identifier not found "N"
prog.pas(46,19) Fatal: Syntax error, ";" expected but "end of file" found
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