έπρεπε να χρησιμοποιήσω LongInt και με τόση μνήμη που μου έφαγαν 64 bit έκαστως άντε να τρέξει γρήγορα... :lol: program PDP23B; var fin,fout:text; boss,z,i,x,y,sum,emp2,r_m,r_f,ar_yf,c:LongInt; p,f:char; r_c:array[1..400000,1..2] of LongInt; am_s:array [1..400000] of integer; emp:array [1..400000] ...