src.cpp:2:12: warning: character constant too long for its type
Const fin ='MILK.INP';
^
src.cpp:3:12: warning: character constant too long for its type
fout='MILK.OUT';
^
src.cpp:4:13: error: too many decimal points in number
Var a:Array[1..1000000] of Longint;
^
src.cpp:1:1: error: 'Program' does not name a type
Program MILK;
^
src.cpp:2:1: error: 'Const' does not name a type
Const fin ='MILK.INP';
^
src.cpp:3:7: error: 'fout' does not name a type
fout='MILK.OUT';
^
src.cpp:4:1: error: 'Var' does not name a type
Var a:Array[1..1000000] of Longint;
^
src.cpp:5:5: error: 'n' does not name a type
n,k,i,dau,giua,cuoi:Longint;
^
src.cpp:6:6: error: found ':' in nested-name-specifier, expected '::'
f:Text;
^
src.cpp:6:5: error: 'f' does not name a type
f:Text;
^
src.cpp:7:1: error: 'Procedure' does not name a type
Procedure QuickSort(L,R:Longint);
^
src.cpp:8:3: error: 'Var' does not name a type
Var i,j,v,t:Longint;
^
src.cpp:9:3: error: 'Begin' does not name a type
Begin
^
src.cpp:11:5: error: 'j' does not name a type
j:=R;
^
src.cpp:12:5: error: 'v' does not name a type
v:=a[(L+R) div 2];
^
src.cpp:13:5: error: 'Repeat' does not name a type
Repeat
^
src.cpp:15:7: error: 'While' does not name a type
While v<a[j] do j:=j-1;
^
src.cpp:16:7: error: 'If' does not name a type
If i<=j then
^
src.cpp:19:11: error: 'a' does not name a type
a[i]:=a[j];
^
src.cpp:20:11: error: 'a' does not name a type
a[j]:=t;
^
src.cpp:21:11: error: 'i' does not name a type
i:=i+1;
^
src.cpp:22:11: error: 'j' does not name a type
j:=j-1;
^
src.cpp:23:9: error: 'End' does not name a type
End;
^
src.cpp:24:5: error: 'Until' does not name a type
Until i>j;
^
src.cpp:25:5: error: 'If' does not name a type
If i<R then QuickSort(i,R);
^
src.cpp:26:5: error: 'If' does not name a type
If L<j then QuickSort(L,j);
^
src.cpp:27:3: error: 'End' does not name a type
End;
^
src.cpp:28:1: error: 'Function' does not name a type
Function Check(K:Longint):Longint;
^
src.cpp:29:3: error: 'Var' does not name a type
Var i,S,C,d:Longint;
^
src.cpp:30:3: error: 'Begin' does not name a type
Begin
^
src.cpp:32:5: error: 'S' does not name a type
S:=0;
^
src.cpp:33:5: error: 'd' does not name a type
d:=1; //ngay dau tien
^
src.cpp:34:5: error: 'For' does not name a type
For i:=1 to n do
^
src.cpp:38:9: error: 'If' does not name a type
If S=k then
^
src.cpp:41:13: error: 'd' does not name a type
d:=d+1; //Sang ngay hom sau
^
src.cpp:42:11: error: 'End' does not name a type
End;
^
src.cpp:43:7: error: 'End' does not name a type
End;
^
src.cpp:44:5: error: 'Check' does not name a type
Check:=C;
^
src.cpp:45:3: error: 'End' does not name a type
End;
^
src.cpp:46:1: error: 'Begin' does not name a type
Begin
^
src.cpp:48:8: error: expected constructor, destructor, or type conversion before '(' token
Reset(f);
^
src.cpp:49:9: error: expected constructor, destructor, or type conversion before '(' token
Readln(f,n,k);
^
src.cpp:50:3: error: 'For' does not name a type
For i:=1 to n do Read(f,a[i]);
^
src.cpp:51:8: error: expected constructor, destructor, or type conversion before '(' token
Close(f);
^
src.cpp:52:12: error: expected constructor, destructor, or type conversion before '(' token
QuickSort(1,n);
^
src.cpp:54:9: error: expected constructor, destructor, or type conversion before '(' token
Assign(f,fout);
^
src.cpp:55:10: error: expected constructor, destructor, or type conversion before '(' token
ReWrite(f);
^
src.cpp:56:10: error: expected constructor, destructor, or type conversion before '(' token
Writeln(f,Check(k));
^
src.cpp:58:3: error: 'dau' does not name a type
dau:=0;
^
src.cpp:59:3: error: 'cuoi' does not name a type
cuoi:=n;
^
src.cpp:60:3: error: 'While' does not name a type
While dau+1<cuoi do
^
src.cpp:63:7: error: 'If' does not name a type
If Check(giua)=0 then cuoi:=giua
^
src.cpp:65:5: error: 'End' does not name a type
End;
^
src.cpp:66:8: error: expected constructor, destructor, or type conversion before '(' token
Write(f,cuoi);
^
src.cpp:67:8: error: expected constructor, destructor, or type conversion before '(' token
Close(f);
^
src.cpp:68:1: error: 'End' does not name a type
End.
^