Ошибка тут: program Random;
Или переименуйте или вообще уберите эту строку.
Условие:В Блокнот (Notepad) введён текст: осень. Нам необходимо вычислить информационный объём данного текста. Помним, что один символ текста занимает 1 байт. Значит, информационный объём данного текста равен: <span>1байт⋅5=5байтов</span>. Занимаемый объём на флэш - диске: <span>32<span> Кбайт</span></span>, т.к. <span>на флэш-диске используется файловая система FAT16, и этот файл будет занимать один кластер, объём которого равен 32 Кбайт.</span>
Ответ 30 удачная контрольной
program xxx;
var i, k : integer;
a : array [1..10] of real;
begin
write('введите элементы массива А:');
for i:=1 to 10 do
readln(a[i]);
writeln('исходный массив А:');
for i:=1 to 10 do
write(a[i]);
k:=0;
for i:=1 to 9 do
if a[i]<>a[10] then k:=k+1;
writeln('элементов отдичных от последнего -', k);
readln
end.