Объяснение:
i=1
while(i<11):
if(i==1):
print(f"Факторіал {i} дорівнює 1 ")
elif(i==2):
print(f"Факторіал {i} дорівнює 2 ")
elif(i==3):
print(f"Факторіал {i} дорівнює 6 ")
elif(i==4):
print(f"Факторіал {i} дорівнює 24 ")
elif(i==5):
print(f"Факторіал {i} дорівнює 120 ")
elif(i==6):
print(f"Факторіал {i} дорівнює 720 ")
elif(i==7):
print(f"Факторіал {i} дорівнює 5040 ")
elif(i==8):
print(f"Факторіал {i} дорівнює 40360")
elif(i==9):
print(f"Факторіал {i} дорівнює 363240")
elif(i==10):
print(f"Факторіал {i} дорівнює 3632400 ")
i=i+1
uses math;
var
vodka:integer;
begin
writeln('Введите кол-во литров');
readln(vodka);
writeln('Пакетиков нужно купить ', Ceil((vodka*19)/ 15));
end.
Надеюсь вы не будете запускать во PascalABC...