К каждой задаче подберите фрагменты программного кода, который явлется ее решением

• Объекты 1
  • Является ли введенное число простым
  • Разложить число на простые множители
  • Есть ли среди введенных чисел число X
• Объекты 2
  • Read \(N\);
    p:=0;
    for i := 2   to  N div 2  do
    if     N mod i = 0    then      p:=p+1;
    if p>0 then   write \('NO '\)
    else  write \('YES' \);
  • Read\(x\);
    i := 2;
    write\(x,  ' = 1'\);
    repeat
    if    x mod i = 0   then
    begin
    write\(' \* ', i\);
    x := x div i;
    end
    else i += 1;
    until  x = 1;
  • write\('Введите целые числа n \(n\\gt 0\) и X: ');
    readln\(n,X\);
    f:=0;
    for  i := 1 to n do  begin
    write\('Введите ', i, ' целое число: '\);
    Read\(a\);
    if a = X then
    begin
    f :=f+1;
    break;
    end;
    end;
    if f>0 then
    writeln\('Число ', X, ' было введено'\)
    else writeln\('Число ', X, ' не было введено'\);