Go-ger {слевого верхнего в правый нижний} for i:=1 to n do a[i,i]:=1; {с правого верхнего в левый нижний} for i:=n downto 1 do a[i,i]:=1; {печать} for i:=1 to n do begin for j:=1 to n do write(a[i,j:4); writeln; end; Dok7 var a: array [ 1..10 ] of integer; i, max, k : integer; s : string; f : boolean; begin readln(s); f:= true; for i:=1 to length(s) do begin if not (s[i] in [0..9]) then begin f:=false; end else begin case (s[i]) of '0' : inc(a[1]); '1' : inc(a[2]); '2' : inc(a[3]); '3' : inc(a[4]); '4' : inc(a[5]); '5' : inc(a[6]); '6' : inc(a[7]); '7' : inc(a[8]); '8' : inc(a[9]); '9' : inc(a[10]); end; end; if f then begin max:=a[1]; for i:=2 to 10 do if max begin k:=i; max:=a[i]; end; writeln(k-1); end else writeln("в строке не только цифры"); end.