Var a:array[1..50] of byte;
n,p, i,k,m,j,x,y,z: integer;
begin
writeln('Введите количество элементов');
readln(p);
repeat; - обратите внимание, что Вы написали repead, хотя нужно repeat.
n:=4;
for i:=n downto 1 do begin
a[i]:=p mod 10;
p:= p div 10;
end;
For i:=1 To n-1 Do Begin
k := i;
For j := i + 1 To n Do
If a[j] >= a[k] Then
k := j;
m := a[i];
a[i] := a[k];
a[k] := m;
end;
x:=a[1]*1000+a[2]*100+a[3]*10+a[4];
For i := 1 To N - 1 Do Begin
k := i;
For j := i + 1 To n Do
If a[j] <= a[k] Then
k := j;
m := a[i];
a[i] := a[k];
a[k] := m;
end;
y:=a[1]*1000+a[2]*100+a[3]*10+a[4];
z:=x-y;
until z=p;
writeln(z);
end.
--- Python 3.8.3 ---
def MatrixPrint(Matr):
matrixstring = ''
rows = len(Matr)
cols = len(Matr[0])
for row in range(rows):
for col in range(cols):
matrixstring += str(Matr[row][col]) + ' '
matrixstring += '\n'
print(matrixstring)
def main():
n = int(input())
Matr = [[int(i) for i in input().split(maxsplit=n)] for i in range(n)]
for i in range(n):
Matr[i][i], Matr[i][n-i-1] = Matr[i][n-i-1], Matr[i][i]
MatrixPrint(Matr)
if __name__ == "__main__":
main()
Объяснение: