Парикмахерская, программа Опции

[Дон]

Парикмахерская. Для каждого посетителя парикмахерской (с одним мастером) известны следующие величины: t – момент его прихода и τ – продолжительность его обслуживания. Сколько клиентов обслужит мастер за смену продолжительностью Т? Сколько рабочего времени он потратит на обслуживание?
Момент прихода и продолжительность обслуживания вводятся пользователем..
Помогите,плизз,если кто может..

[Дон]

повтори свои действия с правильным текстом

Все отлично работает)))

Что касается дальнейшего - тебе нужен еще один массив. Определи его по примеру TimeIn и назови, скажем, ServiceTime. Сделай ввод значений для него тоже.

{ for Don, BarberShop, ver.03, 24/11/06 }
{ by Lapp }

var
  TimeIn:array[1..100]of real;   {время прихода каждого клиента}
  ServiceTime:array[1..100] of Real;{время обслуживания каждого клиента}
  TOpen,TClose:real;
  n,i:integer;         {общее число клиентов}

begin
  TOpen:=9;          {время открытия парикмахерской}
  TClose:=17;        {время закрытия}
  WriteLn;
  WriteLn('The Barber''s shop is open ',tOpen:4:2,' through ',tClose:4:2);
  Write('Vvedite obshee chislo clientov: ');
  ReadLn(n);          {ввод числа клиентов}
  WriteLn('Vvedite vremya prihoda kazhdogo klienta po poraydku:');
  for i:=1 to n do ReadLn(TimeIn[i]);
  WriteLn('Barber shop posetili ',n,' klientov. Vremya prihoda:');
  for i:=1 to n do WriteLn(i,': ',TimeIn[i] :4 :2);
  Read;
  Write('Vvedite vremya,neobxodimoe dlya obslugivania klienta: ');
  ReadLn
end.

вот чего получилось...