program hotel;
procedure hotel_bill(room,days,services:integer);
(*הפרוצדורה מקבלת מספר חדר, כמות ימים ותשלום עבור
 שירותים נוספים*)
(*הפרוצדורה מחשבת ומדפיסה את סכום התשלום 
עבור כל הימים בתוספת שירותים נוספים לפי התעריף 400 ש"ח ליום*)
var
 sum:integer;
begin
    sum:=(400*days)+services;
    writeln('האורח שהה במלון',days,' ימים');
    writeln('האורח שהה בחדר מספר',room);
    writeln('התשלום הכולל עבור האירוח הוא',sum);
    if sum>2000 then
      writeln('ארבעה תשלומים');
end;
procedure total(room_t:integer);
(*הפרוצדורה מקבלת מספר חדר*)
(*הפרוצדורה קולטת את מספר הימים שהאורח שהה במלון 
ותשלום עבור שירותים נוספים בכל יום וסוכמת*)
var
   days_a:integer;(*משתנה שמקבל את כמות הימים*)
   i:integer;(*מונה לולאה*)
   sum:integer;(*סכום שירותים נוספים*)
   advanced_services:integer;(*משתנה אליו נקלטים תשלומים נוספים לכל יום*)
begin
   sum:=0;
   writeln('כמה ימים שהה האורח במלון ?');
   readln(days_a);
   for i:=1 to days_a do
   begin
      writeln('מהו התשלום עבור שירותים נוספים ליום מספר ',i,' ');
      readln(advanced_services);
      sum:=sum+advanced_services;
   end;
   hotel_bill(room_t,days_a,sum);
(*זימון הפרוצדורה הנ"ל לשם הדפסת מספר החדר, כמות הימים, 
והסכום הכולל לתשלום לפי כמות הימים
 ותשלומים נוספים עבור כל יום*)
end;

(*תכנית ראשית המממשת את הפרוצדורות הנל*)
var
   room_m:integer;
begin
    writeln('הקלד מספר חדר ');
    readln(room_m);
(*לולאת זקיף כל עוד לא נקלט מספר חדר 999*)
    while room_m<>999 do
    begin
        total(room_m);(*זימון הפרוצדורה
 הסוכמת את התשלום עבור שירותים נוספים תוך שימוש
 בפרוצדורה א' כדי למצוא את הסכום הכולל עבור 
ימי שהיה ותשלומים נוספים*)
        writeln('הקלד מספר חדר ?');
        readln(room_m);
     end;
end.