Question

ДАЮ 60 БАЛЛОВ
Студент Василий живет в общежитии. Отделение банка, в котором он производит оплату за проживание, имеет всего две кассы, поэтому почти всегда длинная очередь к ним. Первая касса открывается в 8.00, вторая – в 8.05. Последний клиент будет принят в 20.00. Очередь единая, и очередной клиент обслуживается, как только освобождается одна из касс. На обслуживание одного клиента уходит ровно 10 минут. Василий приходит ровно в 8.00 и видит, сколько человек стоит перед ним. Требуется определить, сколько времени ему придется простоять в очереди, и вообще обслужат ли его сегодня.

Помогите пожалуйста очень срочно
Сделать в паскале и построить блок-схему

Answer 1

program raf105;

var

 people,time,o1,o2:integer;

begin

write('Сколько человек увидел василий: ');

readln(people);

while people<>0 do

begin

 time+= 1;

 if people>0 then

   begin

     if o1=10 then

       begin

         people-=1;

         o1:=0;

       end;

     o1+=1;

   end;

 if (people>0) and (time>=5) then

   begin

     if o2=10 then

       begin

         people-=1;

         o2:=0;

       end;

     o2+=1;

   end;

end;

time-=1;

if time<=720 then

 writeln('Василию придётся простоять в очереди ',time div 60,' ч. ',time mod 60,' мин.')

else

 writeln('Василия не обслужат сегодня');

end.