Язык языка - PascalABC. Есть задачанужнужно создать программу считывающую вводимые цифры с клавиатуры и записывающую их в массив от 1 до n, и когда пользователь вводит некое число i ввод прекращается.
Как-то так var a: array [1..10000] of integer; var i,m: integer; begin readln(i); //конечное число readln(m); k:=1; a[k]:=m; while m<>i do begin readln(m); k:=k+1; a[k]:=m; end; end.