program over_9000_strok;
var money, k500, k100, k50, k10, check:integer;
begin
	write('Money > ');
	readln(money);

	if (money >= 500) then
		begin
			check := money div 500;
			writeln('k500 > ', check);
			money := money - check * 500;

			if (money >= 100) then
				begin
					check := money div 100;
					writeln('k100 > ', check);
					money := money - check * 100;

					if (money >= 50) then
						begin
							check := money div 50;
							writeln('k50 > ', check);
							money := money - check * 50;

							if (money >= 10) then
								begin
									check := money div 10;
									writeln('k10 >', check);
									money := money - check * 10;
								end
                            else
								begin
									writeln('k10 > 0');
								end;
						end
                    else
						begin
							writeln('k50 > 0');

							if (money >= 10) then
								begin
									check := money div 10;
									writeln('k10 >', check);
									money := money - check * 10;
								end
							else
								begin
									writeln('k10 > 0');
								end;
						end;
				end
            else
				begin
					writeln('k100 > 0');

					if (money >= 50) then
						begin
							check := money div 50;
							writeln('k50 > ', check);
							money := money - check * 50;

							if (money >= 10) then
								begin
									check := money div 10;
									writeln('k10 >', check);
									money := money - check * 10;
								end
							else
								begin
									writeln('k10 > 0');
								end;
						end
					else
						begin
							writeln('k50 > 0');

							if (money >= 10) then
								begin
									check := money div 10;
									writeln('k10 >', check);
									money := money - check * 10;
								end
							else
								begin
									writeln('k10 > 0');
								end;
						end;
				end;
		end
	else
		begin
			writeln('k500 > 0');
			if (money >= 100) then
				begin
					check := money div 100;
					writeln('k100 > ', check);
					money := money - check * 100;

					if (money >= 50) then
						begin
							check := money div 50;
							writeln('k50 > ', check);
							money := money - check * 50;

							if (money >= 10) then
								begin
									check := money div 10;
									writeln('k10 >', check);
									money := money - check * 10;
								end
							else
								begin
									writeln('k10 > 0');
								end;
						end
					else
						begin
							writeln('k50 > 0');

							if (money >= 10) then
								begin
									check := money div 10;
									writeln('k10 >', check);
									money := money - check * 10;
								end
							else
								begin
									writeln('k10 > 0');
								end;
						end;
				end

			else
				begin
					writeln('k100 > 0');
					if(money >= 50) then
						begin
							check := money div 50;
							writeln('k50 > ', check);
							money := money - check * 50;

							if (money >= 10) then
								begin
									check := money div 10;
									writeln('k10 >', check);
									money := money - check * 10;
								end
							else
								begin
									writeln('k10 > 0');
								end;
						end
					else
						begin
							writeln('k50 > 0');

							if (money >= 10) then
								begin
									check := money div 10;
									writeln('k10 >', check);
									money := money - check * 10;
								end
							else
								begin
									writeln('k10 > 0');
								end;
						end;

				end;
		end;
end.