Где здесь ошибка?

Учебник по информатике, набранный на компьютере, содержит 256 страниц, на каждой странице 40 строк, в каждой строке 60 символов. Для кодирования символов используется кодировка КОИ-8, при которой каждый символ кодируется 8 битами. Определите информационный объём учебника.1) 100 байт
2) 200 Кбайт
3) 600 Кбайт
4) 1200 байт
Заранее спасибо)

профессии: скрипач, столяр, охотник и врач. Известно, что:
1.Столяр живет правее охотника,
2.врач живет левее охотника
3. Скрипач живет с краю
4.скрипач живет рядом с врачем
5.Семен не скрипач и не живет рядом со скрипачом
6.Иван живет рядом с охотником
7.Василий живет правее врача
8.Василий живет через дом от Ивана

Определите, кто кем работает и где живет

список ,2) нумерованный список ,3) таблица , 4) многоуровневый нумерованный список ,5) многоуровневый маркированый списо )

а)расписание уроков на неделю для восьмых классов

б)список учителей школы с указанием предметов , который они ведут

в ) список учеников 8Б класса

г) список покупок в магазине

д)список неуспевающих студентов с указанием предметов , по которым у них имеются долгт

Необходимо удалить первый кратный 3 элемент массива.
program udalenie;
var i,n,k:integer;
a:array[1..1000] of integer;
begin
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite (output);
readln(n);
for i:=1 to n do read (a[i]);
while i<=n do
if a[i] mod 3=0 then
begin
for i:=k to n-1 do
a[i]:=a[i+1];
n:=n-1; exit;
end;
for i:=1 to n do write(a[i],' ');
close (input);
close (output);
end.

program govno3; var x, y, c: real; Begin read(x,y); if x>y then c:=x; x:=y; Y:=x; write(x,y) End.

var a, b, c: real;
Begin
read(a,b);
c:=a
if b>a then c:=b;
write(c)
End.

дешевого(дорогого) товара и его индекс.

вот программа но в ней где-то ошибка

program xxx;

var a:array [1..10] of integer;

i, max, min:integer;

begin

for i:=1 to 10 do read(a[i]);

min:=1;

for i:=2 to 10 do

if a[i]<min then min:=a[i];

writeln('a[',i,']=',a[i]);

max:=a[i];

for i:=2 to 10 do

if a[i]>max then max:=a[i];

writeln('a[',i,']=',a[i]);

end.