ИНФОРМАЦИОННО
КОММУНИКАЦИОНН
ТЕХНОЛОГИИ
Рабочая тетрадь​

:D 
Ну го Ничего если  на паскале напишу ? 
uses crt;
var  a:array[1..50] of integer ;i,j,n,x,t,k:integer;b:string;
begin
read(n);     
for i:= 1 to n do     
begin     
a[i]:=random(15);     
write(a[i],' ');     
end;     
writeln;     
for i:= 1 to n-1 do     
for j:= i+1 to n do     
if a[i]> a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;     
for i:= 1 to n do     
write(a[i],' ');     
writeln;     
read(x);     
for i:= 1 to n do     
 if a[i] = x then k:=k+1;     
 str(k,b);     
n:=length(b);     
 if k in  [11..19] then write (k,' раз') else     
 if k = 0 then  write('число ',x,' не встречается ')else     
case b[n] of     
 '0','1','5','6','7','8','9': write (k,' раз');     
 '3','4','2': write (k,' раза') ;     
end;
end.

"Пока" - while если правильно понял
"Если" - if
цикл с параметром - for

while - действие выполняется до того, пока требуемое условие заданное в ( ), не будет ложным
Например:
while <условие> do
<операция>

for - действие выполняется до того, пока не выполниться столько - то раз
Например:
for i:=1 to 10 do //...i:=1 to 10... это сколько раз будет выполняться цикл, в данном случае 10 раз
<операция>

if - условие, на которое есть 2 ответа: ДА или НЕТ (это как тип данных boolean, булеан логический тип данных, который тоже имеет 2 значения: true или false)
Например:
if <условие>
then <операция>
else <операция>