Условие Сир Готфрид собирается освободить принцессу Мариотту из лап дракона. В освобождении принцесс, как известно, главное — произвести первое впечатление, поэтому благородный рыцарь хочет приобрести n любовных записок в подарок Мариотте.

Королевские летописцы продают любовные записки по цене 1.05 фунтов за одну записку, но можно сэкономить, купив комплект из 12 записок за 10.25 фунтов или целую коробку из 12 комплектов за 114 фунтов.

Готфриду, определив, сколько коробок, комплектов и любовных записок он должен купить, чтобы заплатить как можно меньше.

Формат входных данных
В одной строке вводится одно целое число N (1 ⩽ N ⩽ 30 000)

Формат выходных данных
Требуется вывести три числа — количество коробок, комплектов и записок, которые надо купить.

Примечания
Сир Годфрид может купить больше любовных записок, чем ему нужно, если это позволит ему сэкономить.

Интернет – одно из самых удивительных изобретений 20-го века. Он дает безграничные возможности в отношении различных коммуникаций, получения и хранения нужной информации, направлении мультимедиа. Отношение к нему различных слоев населения неоднозначно, содержит даже диаметрально противоположные позиции, но огромное значение его в жизни современного человека не будет оспариваться никем.

Эта слайдовая презентация является результатом ученического исследования на тему влияния интернета на жизнь человека и на все общество в целом. На ее слайдах рассматриваются вопросы:

- Что же такое интернет,

- Использование интернета в жизни людей,

- Как интернет влияет на людей,

- Интернет для ребенка,

- Можем ли мы прожить без интернета,

- Интернет в отдельном школьном классе,

- Личное отношение автора к интернету.

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.