Если в секундах получается 1,8 секунда, а если в минутах то 0,03 минуты.
Всего 128 мест, значит хватит 7 бит
2^7 = 128
Лена -1;2;3;4;5;6 Прошла в комнату -Да
Саша-1;2;3;4;6; Прошел в комнату- Нет
Возможно, тебе это поможет.
Вариант сложения чисел в Паскале
var
mas:array[1..20]of integer;
i:integer;
//s,s1:integer;
begin
writeln('Элементы массива:');
for i:=2 to 20 do
begin
mas[i]:=2*i+5;
write(' ',mas[i]);
end;
writeln();
write('Первый элемент массива: ',mas[1]+#10+'Пятый элемент массива: ',mas[5]+#10+'Десятый элемент массива: ',mas[10]);
end.