Authenticating with steam gmod. что делать? ​

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.

расстояние в сантиметрах разделить на число сантиметров в одном метре

var x: array[1..n] of integer; (n сам задай)

i,j,k: integer;

begin

for i: =1 to n doreadln(x[i]);

for j: =1 to n-1 dofor i: =1 to n-j doif x[i]< x[i+1] then begin k: =x[i]; x[i]: =x[i+1]; x[i+1]: =k; end;

for i: =1 to n dowriteln(x[i]);

end.