ДАЮ 60 БАЛЛОВ Студент Василий живет в - Вопрос по информатике

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

Помогите пожалуйста очень срочно
Сделать в паскале и построить блок-схему
- Автор:
  jasmine19
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.
- Отвечал:
  alessandrou6xd
- 0
Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска