Определите что будет напечатано в результате работы следующего фрагмента программы:
1) Var k,s: integer
begin
s:=0
k:=0
while k<20 do begin
s:=s+k;
k:=k+5;
end;
write(s);
end.

2) Var k,s: integer
begin
s:=0
k:=0
while k<34 do begin
s:=s+2*k
k:=k+2
end;
write(s);
end.

3) Var k,s: integer
begin
s:=0
k:=0
while k<28 do begin
s:=s+k;
k:=k+4;
end;
write(s);
end.

Хранение информации – это один из главных информационных процессов, с которым неразрывно связано понятие устройства хранения информации, или запоминающего устройства.

Обработка (преобразование) информации — это процесс изменения формы представления информации или ее содержания.

Передача информации — физический процесс, посредством которого осуществляется перемещение знаков

Носитель информации  — любой материальный объект или среда[уточнить], используемый человеком достаточно длительное время сохранять (нести) в своей структуре занесённую на него информацию, без использования дополнительных устройств (например, источника энергии).

Не знаю, правильно ли я понял тебя, но вот. Если не так то обязательно напиши!

program Massiv;

var

MyArray: array[0..9] of Integer; // Объявляем статический массив целых чисел длинной 10 элементов (считаем от нуля).

i: integer;

begin

writeln('Введите 10 целых чисел');

for i := Low(MyArray) to High(MyArray) do

readln(MyArray[i]); //В цикле записываем значения в массив

for i :=  Low(MyArray) to High(MyArray) do

writeln(MyArray[i]); //В цикле выводим уже записанные значения

readln; //Чтобы программа не закрылась сразу после вывода результата

end.