Прочитай список дел, которые ты выполняешь в учебные дни. Пронумеруй их так, чтобы получился режим дня. Запиши время начала каждого из них.

var
  a, i: integer;

begin
  readln(a);
  i := 50;
  while (i <= 950) do
  begin
    writeln(String.Format('{0} гр. сыра стоит {1} руб.', i, a / 1000 * i));
    i += 50;
  end;
end.