При чтении массива вложенный цикл, а переменная одна и та же j ,
for j:=1 to 4 do
begin
for j:=1 to 4 do
замените в первом цикле
for i:=1 to 4 do
Таблица истинности во вложении
var
c, k, n: integer;
begin
writeln('Введите процент: ');
readln(n);
while k < 100 do
begin
k := k + n;
inc(c);
end;
writeln(c * 12, ' мес.');
<span>end.</span>
Обработка - осмыслить полученную информацию
Хранение - сохранение или запись полученной информации(в голове или на школьной доске)
передача - переместить информацию в пространстве, например тетрадь или голос