Составить программу, позволяющую решить задачу(1 курс), Подскажите,пожалуйста,как сделать. Опции

[clack]

Определить количество посетителей салона, которых успеет обслужить мастер-стилист, если его рабочий день составляет t часов и известна продолжительность (в минутах) обслуживания каждого посетителя очереди (вводится пользователем).
Такая вот задача.Последняя работа по Паскалю,не знаю,как ее сделать.
Знаю только,что решать через цикл While <условие> DO <Тело цикла>
Заранее спасибо!

[Lilu]

Не совсем понятно, время обслуживания нужно вводить отдельно для каждого посетителя? Если да, то наверное как-то так:

uses crt;
var t, min, k: integer;
begin
clrscr;
     write ('Prodolzhitelnost rab dnya (v chasah): '); readln (t);
     t:=t*60;
     while t >0 do
           begin
                k:=k+1;
                write ('Vremya obsluzhivaniya ', k,'-go posetitelya (v minutah): '); readln (min);
                t:=t-min;
           end;
     if t<0 then k:=k-1;
     writeln ('Za den stilist obsluzit ', k, ' chelovek');
readkey;
end.

[clack]

Не совсем понятно, время обслуживания нужно вводить отдельно для каждого посетителя? Если да, то наверное как-то так:

uses crt;
var t, min, k: integer;
begin
clrscr;
     write ('Prodolzhitelnost rab dnya (v chasah): '); readln (t);
     t:=t*60;
     while t >0 do
           begin
                k:=k+1;
                write ('Vremya obsluzhivaniya ', k,'-go posetitelya (v minutah): '); readln (min);
                t:=t-min;
           end;
     if t<0 then k:=k-1;
     writeln ('Za den stilist obsluzit ', k, ' chelovek');
readkey;
end.

Спасибо большое,у вас гораздо проще получилось,чем у меня.Еще раз большое спасибо)