Удалить все отрицательные элементы массива и расположить оставшиеся по убыванию

Cls input n dim a(n) s=0 for i=1 to n   input a(i) next i for i=1 to n   if a(i)> 0 then s=s+1 next i if s> 0 then   p=1: t=0   dim b(s)   for i=1 to s     for j=p to n       t=t+1       if a(j)> 0 then b(i)=a(j) goto 1     next j 1: p=t   next i   for i=1 to s     for j=1 to s       if b(i)< b(j) then swap b(i),b(j)     next j   next i for i=1 to s   print b(i); next i end if

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.

2 мальчика плывут на тот берег

1 мальчик возвращается

1 солдат плывет на тот берег

второй мальчик возвращается

 

2 мальчика плывут на тот берег

1 мальчик возвращается

1 солдат плывет на тот берег

второй мальчик возвращается

 

и так по кол-ву солдат

ну его в баню такую переправу и бедные мальчики