<span>#include <stdio.h>
int main() {
FILE* in = fopen("input.txt", "r");
char s[100], b = 1, i = 0;
short c;
do {
c = getc(in);
if (c >= '0' && c <= '9') {
if ((b = !b) && /*
*/ (c = getc(in)) == ' ' || c == <span>'\t'</span> || c == <span>'\r'</span> || c == <span>'\n'</span> || c == EOF) {
while (c != <span>'\n'</span> && c != EOF)
c = getc(in);
i = 0;
}
} else if (c == <span>'\n'</span>) {
for (b = 0; b < i; b++)
putchar(s[b]);
putchar(c);
putchar(<span>'\n'</span>);
i = 0;
b = 1;
} else {
s[i++] = c;
b = 1;
}
} while (c != EOF);
fclose(in)<span>;</span></span>
///////////////////////////////////////////
var a:array[1..100,1..100]of integer;
i,j,c,b,n,k:integer;
begin
readln(n);
readln(c,b);
for i:=1 to n do for j:=1 to n do a[i,j]:=random(9)+1;
for i:=1 to n do begin for j:=1 to n do write(a[i,j],' '); if j=n then writeln; end;
writeln;
for i:=1 to n do
for j:=1 to n do
if (i>n-j+1) or (j<n-i+1) then if (a[i,j]<=c) and (a[i,j]>=b) then inc(k);
writeln(k);
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(5, -1, 1);
foreach var x in a do
Write(x:3)
end.