program hotel; 
procedure hotel_bill(room,days,services:integer);
var
 sum:integer;
begin
    sum:=(400*days)+services;
    writeln('האורח שהה במלון ',days,' ימים',room);
    writeln('תשלום כולל ',sum);
    if sum>2000 then
      writeln('ארבעה תשלומים');
end;
var
   i,z,more_services,room_number,days_a:integer;
begin
z:=0;
write('הכנס מספר חדר :');
read(room_number);
while room_number<>999 do
begin
  writeln('כמה ימים האורח שהה במלון?');
  read(days_a);
  for i:=1 to days_a  do
   begin
      writeln('מהו התשלום לשירותים נוספים ליום מספר ',i);
      read(more_services);
      z:=z+more_services;
   end;
  hotel_bill(room_number,days_a,z);
  writeln('מספר החדר? ');
  read(room_number);
end; 
end.