Var a,i,n:integer;
begin
writeln('Введите a');
readln(a); n:=0;
for i:=1 to a do begin
n:=n+1; writeln(i);
end;
writeln('N = ',n);
end.
ответ 36 кбайт
я тебе в комментах в прошлом вопросе скинул
Pascal
Как-то так. Матрица заполнена не полностью, но, как я понял, этого и не нужно делать.