1 килобайт=1000 байт
Значит 10 килобайт=10000 байт
Если выбрать начало системы отсчета на высоте Н и направление Х вверх, то:
Аня - туристка, Боря - художник, Гриша - футболист, Дина - певица, Вася - танцор
Var
ch, otvet, i: longint;
begin
for i := 1 to 5 do
begin
ReadLn(ch);
otvet := otvet + ch;
end;
WriteLn(otvet);
end