Переведите код из Phyton в Pascal n,m=input().strip().split() n=int(n) m=int(m) ...

Question

Переведите код из Phyton в Pascal

n,m=input().strip().split()
n=int(n)
m=int(m)
x=[0]*n
print(x)
z=[0]*n
for i in range(m):
a,b=input().strip().split()
a=int(a)-1
b=int(b)-1
x[a]-=1
x[b]+=1
for i in range(n):
z[i+x[i]]=i
y=''
for i in z:
y+=str(i+1)+ ' '
print(y)

Comments

Есть ли условие задачи?

---

Нет

---

n,m=input().strip().split() n=int(n)m=int(m) x=[0]*n #print(x) z=[0]*n for i in range(m): a,b=input().strip().split() a=int(a)-1 b=int(b)-1 x[a]-=1 x[b]+=1 for i in range(n): z[i+x[i]]=i y='' for i in z: y+=str(i+1)+ ' ' print(y)

---

Код изменил

Answer 1

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=ReadInteger2;
  var x:=ArrFill(n,0);
  x.Println;
  var z:=Copy(x);
  for var i:=0 to m-1 do begin
    var (a,b):=ReadInteger2;
    a-=1; b-=1; x[a]-=1; x[b]+=1;
    end;
  for var i:=0 to n-1 do z[i+x[i]]:=i;
  var y:='';
  foreach var i in z do y+=(i+1)+' ';
  Writeln(y)
end.

---