Zadatak Paycheck

Moze li mi iko reci zasto zadatak ne prođe ?
Source je:
http://www.z-trening.com/new/www/html/submit.php?submit=7100046855&subm_code=1

pre for petlje moras staviti

 w := 0; 

i

 e := 0; 

Ne moras postavljati w i e na 0 jer pascal sve vrednosti automatski postavlja na 0 tj false. Samo stavi

WriteLn ( x:0:2 );

.

Nije ni u tome problem nego u ovome :
Umesto :

q,a,p:array[1..1000]of integer;
w,e,n,i:integer;

Stavi :

q,a,p:array[1..1000]of longint;
w,e,n,i:longint;

samo jedno pitanje: zasto vecina ljudi koristi nizove na ovom zadatku ??? uopste nisu potrebni, bzvz komplikujete stvar....

Nikola je potpuno pravu, ali već prema tvom rešenju, greška je u:
var
...p:array[1..1000]of integer;
...
for i:= 0 to n-1 do begin
read(a[i],p[i]);
....
Stavi
for i:= 1 to n do begin
...
To imaš na još jednom mestu u program.