написать код в Python. Очень нужно Дано натуральное число n. Удалить в нем все 1 .

Если я вас правильно понял вам нужно удалить из числа все цифры 1.

На Python это делается довольно просто, если вам разрешили использовать строки, то ответ такой.

n = int(input('>> '))

print('Вы ввели число:',n)

a = str(n).replace('1','')

n = int(a)

print('Полученное число:',n)

Прикрепил файл, он в .txt, переименуйте в .py

Var x,y,z:integer; {описание переменных и их типа}
begin
writeln ('введи два числа'); {Вывод на экран сообщения-подсказки}
readln (x,y); {считывание переменных}
if x<0 then                      {проверка условия.}
  if y>x then z:=y             {если условие истинно, то мы ищем большее из х и у. если                                        у больше, то присваиваем z значение у}
           else z:=x             {если же больше х, то присваиваем его значение}
        else                        {если условие ложно}
           if y>x then z:=x     {то мы ищем меньшее из х и у. если                                                                           у больше, то присваиваем z значение х}
                    else z:=y;     {если же больше х, то присваиваем значение у}
writeln (z);                        {вывод результата на экран}
end.                                 {конец программы}

DIM A(6)
RANDOMIZE TIMER
FOR I = 1 TO 6
    A(I) = INT(RND * 20) - 10
    IF A(I) > 0 THEN S = S + 1
    PRINT A(I); " ";
NEXT I
PRINT
PRINT "S="; S

Новый паскаль АВС
var
   a:array[1..6]of integer;
   i,s:integer;
begin
  for i:=1 to 6 do
    begin
    a[i]:=random(-10,10);
    if a[i]>0 then s:=s+1;
    write(a[i],' ')
    end;
writeln;
writeln('Количество положительных: ',s)
end.

Старый паскаль АВС
var
   a:array[1..6]of integer;
   i,s:integer;
begin
  for i:=1 to 6 do
    begin
    a[i]:=random(20)-10;
    if a[i]>0 then s:=s+1;
    write(a[i],' ')
    end;
writeln;
writeln('Количество положительных: ',s)
end.