60 студент василий живет в общежитии. отделение банка, в котором он производит оплату за проживание, имеет всего две кассы, поэтому почти всегда длинная очередь к ним. первая касса открывается в 8.00, вторая – в 8.05. последний клиент будет принят в 20.00. очередь единая, и очередной клиент обслуживается, как только освобождается одна из касс. на обслуживание одного клиента уходит ровно 10 минут. василий приходит ровно в 8.00 и видит, сколько человек стоит перед ним. требуется определить, сколько времени ему придется простоять в очереди, и вообще обслужат ли его сегодня. сделать в паскале и построить блок-схему
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.